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