diff options
| author | fukachan <fukachan> | 2002-09-15 00:07:53 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-09-15 00:07:53 +0000 |
| commit | c5a2c8316098c67c9e9075b76f3e6408583f1a93 (patch) | |
| tree | aec833c6d63f4264f6291fcf2c3371aab1c17243 /fml/lib/FML/Confirm.pm | |
| parent | d8ab6c73c3be312604b3258895ef71510d721738 (diff) | |
| download | fml8-c5a2c8316098c67c9e9075b76f3e6408583f1a93.tar.gz fml8-c5a2c8316098c67c9e9075b76f3e6408583f1a93.tar.bz2 fml8-c5a2c8316098c67c9e9075b76f3e6408583f1a93.zip | |
mkdirhier() -> mkpath()
Diffstat (limited to 'fml/lib/FML/Confirm.pm')
| -rw-r--r-- | fml/lib/FML/Confirm.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fml/lib/FML/Confirm.pm b/fml/lib/FML/Confirm.pm index 635a206d..365fa7f2 100644 --- a/fml/lib/FML/Confirm.pm +++ b/fml/lib/FML/Confirm.pm @@ -1,10 +1,10 @@ #-*- perl -*- # -# Copyright (C) 2001 Ken'ichi Fukamachi +# Copyright (C) 2001,2002 Ken'ichi Fukamachi # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Confirm.pm,v 1.4 2001/12/22 16:08:58 fukachan Exp $ +# $FML: Confirm.pm,v 1.5 2002/09/11 23:18:02 fukachan Exp $ # package FML::Confirm; @@ -124,8 +124,8 @@ sub _open_db my $dir = File::Spec->catfile($cache_dir, $class); unless (-d $dir) { - eval q{ use File::Utils qw(mkdirhier);}; - mkdirhier($dir, 0700); + use File::Path; + mkpath( [ $dir ], 0, 0700 ); } use Tie::JournaledDir; |