diff options
| author | fukachan <fukachan> | 2004-02-15 09:27:42 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-02-15 09:27:42 +0000 |
| commit | c3cf627408a38ae824d74376ccf24e53c149fafc (patch) | |
| tree | 2a146286bd1194a32191fe39ad7572ab2956ca4a /fml/lib | |
| parent | 2b80cf4c5f517180cc69abc0c0f435492ddcccf3 (diff) | |
| download | fml8-c3cf627408a38ae824d74376ccf24e53c149fafc.tar.gz fml8-c3cf627408a38ae824d74376ccf24e53c149fafc.tar.bz2 fml8-c3cf627408a38ae824d74376ccf24e53c149fafc.zip | |
check input data more.
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Article/Spool.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/fml/lib/FML/Article/Spool.pm b/fml/lib/FML/Article/Spool.pm index 9cbc29f9..8ae01bdd 100644 --- a/fml/lib/FML/Article/Spool.pm +++ b/fml/lib/FML/Article/Spool.pm @@ -3,7 +3,7 @@ # Copyright (C) 2003,2004 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Spool.pm,v 1.5 2004/02/01 15:28:48 fukachan Exp $ +# $FML: Spool.pm,v 1.6 2004/02/01 15:54:45 fukachan Exp $ # package FML::Article::Spool; @@ -90,7 +90,11 @@ sub convert print $wh "convert $ml_name ML spool.\n\n"; - # XXX-TODO: more restricted checks. + # sanity + unless ($src_dir) { croak("\$src_dir not defined.");} + unless ($dst_dir) { croak("\$dst_dir not defined.");} + unless ($src_dir && -d $src_dir) { croak("\$src_dir not found.");} + unless ($dst_dir && -d $dst_dir) { croak("\$dst_dir not found.");} if ($src_dir eq $dst_dir) { $src_dir .= ".old"; rename($dst_dir, $src_dir); |