diff options
| author | fukachan <fukachan> | 2001-08-26 08:39:51 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-08-26 08:39:51 +0000 |
| commit | 2041b87871335464017b07775802eba2795a17d7 (patch) | |
| tree | b234145c661b9cc52ae8d27fd77f5fb2347c6434 /fml/lib/File | |
| parent | cbbf9010aa936728cba61361392e7935307d1031 (diff) | |
| download | fml8-2041b87871335464017b07775802eba2795a17d7.tar.gz fml8-2041b87871335464017b07775802eba2795a17d7.tar.bz2 fml8-2041b87871335464017b07775802eba2795a17d7.zip | |
mkdirhier: qq{} -> q{}
Diffstat (limited to 'fml/lib/File')
| -rw-r--r-- | fml/lib/File/Utils.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fml/lib/File/Utils.pm b/fml/lib/File/Utils.pm index 59a07d8e..fe9272dc 100644 --- a/fml/lib/File/Utils.pm +++ b/fml/lib/File/Utils.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$ +# $FML: Utils.pm,v 1.6 2001/05/27 14:27:55 fukachan Exp $ # package File::Utils; @@ -71,9 +71,9 @@ sub mkdirhier error_clear(); # XXX $mode (e.g. 0755) should be a numeric not a string - eval qq{ + eval q{ use File::Path; - mkpath(\$dir, 0, $mode); + mkpath($dir, 0, $mode); }; $ErrorString = $@; return ($@ ? undef : 1); |