diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Handle.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Handle.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Handle.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Handle.pm index 2010bb831e..18fe7140c1 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Handle.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Handle.pm @@ -8,20 +8,20 @@ IO::Handle - supply object methods for I/O handles use IO::Handle; - $io = IO::Handle->new(); + my $io = IO::Handle->new(); if ($io->fdopen(fileno(STDIN),"r")) { print $io->getline; $io->close; } - $io = IO::Handle->new(); + my $io = IO::Handle->new(); if ($io->fdopen(fileno(STDOUT),"w")) { $io->print("Some text\n"); } # setvbuf is not available by default on Perls 5.8.0 and later. use IO::Handle '_IOLBF'; - $io->setvbuf($buffer_var, _IOLBF, 1024); + $io->setvbuf(my $buffer_var, _IOLBF, 1024); undef $io; # automatically closes the file if it's open @@ -234,7 +234,7 @@ the taint-clean flag failed. (eg invalid handle) =head1 NOTE An C<IO::Handle> object is a reference to a symbol/GLOB reference (see -the C<Symbol> package). Some modules that +the L<Symbol> package). Some modules that inherit from C<IO::Handle> may want to keep object related variables in the hash table part of the GLOB. In an attempt to prevent modules trampling on each other I propose the that any such module should prefix @@ -270,7 +270,7 @@ use IO (); # Load the XS module require Exporter; our @ISA = qw(Exporter); -our $VERSION = "1.46"; +our $VERSION = "1.52"; our @EXPORT_OK = qw( autoflush |