diff options
Diffstat (limited to 'fml/lib/File')
| -rw-r--r-- | fml/lib/File/CacheDir.pm | 4 | ||||
| -rw-r--r-- | fml/lib/File/Utils.pm | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/fml/lib/File/CacheDir.pm b/fml/lib/File/CacheDir.pm index a1014aa6..2e0452dc 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.15 2002/05/17 09:50:56 fukachan Exp $ +# $FML: CacheDir.pm,v 1.16 2002/07/02 12:50:16 fukachan Exp $ # package File::CacheDir; @@ -360,7 +360,7 @@ sub set my ($self, $key, $value) = @_; my $fh = $self->open; - if (defined $fh) { + if (defined $fh) { print $fh $key, "\t", $value, "\n"; $self->close; } diff --git a/fml/lib/File/Utils.pm b/fml/lib/File/Utils.pm index d7bba21b..ec02df72 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: Utils.pm,v 1.14 2002/07/02 12:52:10 fukachan Exp $ +# $FML: Utils.pm,v 1.15 2002/07/25 11:34:02 fukachan Exp $ # package File::Utils; @@ -55,7 +55,7 @@ clear error message. # Side Effects: none # Return Value: STR(error message) sub error -{ +{ if (defined $ErrorString) { return $ErrorString; } |