From bd92fcbaea09c6d9a665aa50145badf7bc7b19dc Mon Sep 17 00:00:00 2001 From: fukachan Date: Sat, 3 Aug 2002 13:13:18 +0000 Subject: white spaces --- fml/lib/File/CacheDir.pm | 4 ++-- fml/lib/File/Utils.pm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'fml/lib/File') 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; } -- cgit v1.2.1