diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/IO/File.pm | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/IO/File.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/IO/File.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/File.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/File.pm index e2accf7d2a..a3ff37af50 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/File.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/File.pm @@ -10,29 +10,29 @@ IO::File - supply object methods for filehandles use IO::File; - $fh = IO::File->new(); + my $fh = IO::File->new(); if ($fh->open("< file")) { print <$fh>; $fh->close; } - $fh = IO::File->new("> file"); + my $fh = IO::File->new("> file"); if (defined $fh) { print $fh "bar\n"; $fh->close; } - $fh = IO::File->new("file", "r"); + my $fh = IO::File->new("file", "r"); if (defined $fh) { print <$fh>; undef $fh; # automatically closes the file } - $fh = IO::File->new("file", O_WRONLY|O_APPEND); + my $fh = IO::File->new("file", O_WRONLY|O_APPEND); if (defined $fh) { print $fh "corge\n"; - $pos = $fh->getpos; + my $pos = $fh->getpos; $fh->setpos($pos); undef $fh; # automatically closes the file @@ -135,7 +135,7 @@ require Exporter; our @ISA = qw(IO::Handle IO::Seekable Exporter); -our $VERSION = "1.46"; +our $VERSION = "1.52"; our @EXPORT = @IO::Seekable::EXPORT; |