diff options
| author | fukachan <fukachan> | 2001-03-11 13:33:50 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-03-11 13:33:50 +0000 |
| commit | 5c2cec9ab143a5504f0538fdbadf3cbda5a49ec1 (patch) | |
| tree | 8f566308bfebc87c109876807e5af664faa1967e /fml/lib/IO | |
| parent | ebfe131226689bf1ab87f7d09dae111104ac2eb3 (diff) | |
| download | fml8-5c2cec9ab143a5504f0538fdbadf3cbda5a49ec1.tar.gz fml8-5c2cec9ab143a5504f0538fdbadf3cbda5a49ec1.tar.bz2 fml8-5c2cec9ab143a5504f0538fdbadf3cbda5a49ec1.zip | |
rewrite close($fh) to $fh->close().
resolve ambiguous close() call.
Diffstat (limited to 'fml/lib/IO')
| -rw-r--r-- | fml/lib/IO/Adapter/File.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fml/lib/IO/Adapter/File.pm b/fml/lib/IO/Adapter/File.pm index 112404bb..b0378933 100644 --- a/fml/lib/IO/Adapter/File.pm +++ b/fml/lib/IO/Adapter/File.pm @@ -258,7 +258,7 @@ sub add while (<$fh>) { print $wh $_; } - close($fh); + $fh->close; } else { $self->_error_reason("Error: cannot open file=$self->{ _file }"); @@ -291,7 +291,7 @@ sub delete next FILE_IO if /$regexp/; print $wh $_; } - close($fh); + $fh->close; $wh->close; } else { @@ -326,7 +326,7 @@ sub replace print $wh $_; } } - close($fh); + $fh->close; $wh->close; } else { |