diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/IO/Handle.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/IO/Handle.pm | 22 |
1 files changed, 1 insertions, 21 deletions
diff --git a/Master/tlpkg/tlperl/lib/IO/Handle.pm b/Master/tlpkg/tlperl/lib/IO/Handle.pm index a2570246452..45b6d4f5200 100644 --- a/Master/tlpkg/tlperl/lib/IO/Handle.pm +++ b/Master/tlpkg/tlperl/lib/IO/Handle.pm @@ -270,7 +270,7 @@ use IO (); # Load the XS module require Exporter; our @ISA = qw(Exporter); -our $VERSION = "1.40"; +our $VERSION = "1.42"; our @EXPORT_OK = qw( autoflush @@ -431,26 +431,6 @@ sub say { print $this @_; } -# Special XS wrapper to make them inherit lexical hints from the caller. -_create_getline_subs( <<'END' ) or die $@; -sub getline { - @_ == 1 or croak 'usage: $io->getline()'; - my $this = shift; - return scalar <$this>; -} - -sub getlines { - @_ == 1 or croak 'usage: $io->getlines()'; - wantarray or - croak 'Can\'t call $io->getlines in a scalar context, use $io->getline'; - my $this = shift; - return <$this>; -} -1; # return true for error checking -END - -*gets = \&getline; # deprecated - sub truncate { @_ == 2 or croak 'usage: $io->truncate(LEN)'; truncate($_[0], $_[1]); |