summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/File.pm
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/IO/File.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/IO/File.pm12
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;