diff options
| author | fukachan <fukachan> | 2001-12-08 14:31:32 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-12-08 14:31:32 +0000 |
| commit | af1aa2b286825cdcfcff837872d305042b8376c1 (patch) | |
| tree | ae756de5e1dc921829780a06aa0d9d69726cc691 /fml | |
| parent | 5a15ca78c77c2630b1405d41ffb8f928d3911b67 (diff) | |
| download | fml8-af1aa2b286825cdcfcff837872d305042b8376c1.tar.gz fml8-af1aa2b286825cdcfcff837872d305042b8376c1.tar.bz2 fml8-af1aa2b286825cdcfcff837872d305042b8376c1.zip | |
more proper error messages
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/TinyScheduler.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/fml/lib/TinyScheduler.pm b/fml/lib/TinyScheduler.pm index 7b6cb7d4..6f0ccd68 100644 --- a/fml/lib/TinyScheduler.pm +++ b/fml/lib/TinyScheduler.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: TinyScheduler.pm,v 1.10 2001/11/25 14:53:41 fukachan Exp $ +# $FML: TinyScheduler.pm,v 1.11 2001/11/27 11:32:34 fukachan Exp $ # package TinyScheduler; @@ -109,7 +109,8 @@ sub tmpfile $tmpdir = $dir; } else { - croak("Hmm, unsafe ? I cannot write $dir, stop\n"); + croak("$dir not exists\n") unless -d $dir; + croak("$dir is not writable\n") unless -w $dir; } eval q{ |