diff options
| author | fukachan <fukachan> | 2002-05-17 05:03:28 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-05-17 05:03:28 +0000 |
| commit | e3a8dc51f9a0756efc64185081167b075322fdc5 (patch) | |
| tree | cb462781a7063be694e4d24e3821deb946581007 /fml/lib/File/CacheDir.pm | |
| parent | bc2ae390e91501d68074c3e8d3e064e534c16aba (diff) | |
| download | fml8-e3a8dc51f9a0756efc64185081167b075322fdc5.tar.gz fml8-e3a8dc51f9a0756efc64185081167b075322fdc5.tar.bz2 fml8-e3a8dc51f9a0756efc64185081167b075322fdc5.zip | |
bug fix eval{} should do eval { use()&&new() }
Diffstat (limited to 'fml/lib/File/CacheDir.pm')
| -rw-r--r-- | fml/lib/File/CacheDir.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/fml/lib/File/CacheDir.pm b/fml/lib/File/CacheDir.pm index 603e59d5..adfe2989 100644 --- a/fml/lib/File/CacheDir.pm +++ b/fml/lib/File/CacheDir.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: CacheDir.pm,v 1.12 2002/01/13 06:59:49 fukachan Exp $ +# $FML: CacheDir.pm,v 1.13 2002/01/13 13:35:25 fukachan Exp $ # package File::CacheDir; @@ -144,10 +144,12 @@ sub _take_file_name elsif ($cache_type eq 'cyclic') { my $seq_file = File::Spec->catfile($directory, $sequence_file_name); - eval q{ use File::Sequence;}; - my $sfh = new File::Sequence { - sequence_file => $seq_file, - modulus => $modulus, + my $sfh = undef; + eval q{ use File::Sequence; + $sfh = new File::Sequence { + sequence_file => $seq_file, + modulus => $modulus, + }; }; my $id = $sfh->increment_id; $file = File::Spec->catfile($directory, $file_name.$id); |