diff options
| author | fukachan <fukachan> | 2004-03-17 06:58:43 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-03-17 06:58:43 +0000 |
| commit | 901ac51e354a38d8fca44e2b231c872b5a04eb6f (patch) | |
| tree | b5af18fed055c619a1b79af529be0234c617e3c3 /fml/lib/IO/Adapter/File.pm | |
| parent | 1c56b7744f4ce97ead65b8a4fef3c81d8ec91c14 (diff) | |
| download | fml8-901ac51e354a38d8fca44e2b231c872b5a04eb6f.tar.gz fml8-901ac51e354a38d8fca44e2b231c872b5a04eb6f.tar.bz2 fml8-901ac51e354a38d8fca44e2b231c872b5a04eb6f.zip | |
modify touch() to use FileHandle not IO::File
Diffstat (limited to 'fml/lib/IO/Adapter/File.pm')
| -rw-r--r-- | fml/lib/IO/Adapter/File.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fml/lib/IO/Adapter/File.pm b/fml/lib/IO/Adapter/File.pm index c286f443..93dd6c80 100644 --- a/fml/lib/IO/Adapter/File.pm +++ b/fml/lib/IO/Adapter/File.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: File.pm,v 1.51 2004/01/24 09:03:56 fukachan Exp $ +# $FML: File.pm,v 1.52 2004/02/03 04:15:33 fukachan Exp $ # package IO::Adapter::File; @@ -158,11 +158,11 @@ sub touch my ($self) = @_; my $file = $self->{_file}; - use IO::File; - my $fh = new IO::File; + use FileHandle; + my $fh = new FileHandle; if (defined $fh) { - $fh->open($file, "a"); - $fh->close; + $fh->open($file, "a"); + $fh->close(); } } |