diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/IO/Pipe.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/IO/Pipe.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/IO/Pipe.pm b/Master/tlpkg/tlperl/lib/IO/Pipe.pm index 827cc48bfcd..3b4313abb1f 100644 --- a/Master/tlpkg/tlperl/lib/IO/Pipe.pm +++ b/Master/tlpkg/tlperl/lib/IO/Pipe.pm @@ -14,12 +14,12 @@ our($VERSION); use Carp; use Symbol; -$VERSION = "1.13"; +$VERSION = "1.14"; sub new { my $type = shift; my $class = ref($type) || $type || "IO::Pipe"; - @_ == 0 || @_ == 2 or croak "usage: new $class [READFH, WRITEFH]"; + @_ == 0 || @_ == 2 or croak "usage: $class->([READFH, WRITEFH])"; my $me = bless gensym(), $class; @@ -166,7 +166,7 @@ IO::Pipe - supply object methods for pipes use IO::Pipe; - $pipe = new IO::Pipe; + $pipe = IO::Pipe->new(); if($pid = fork()) { # Parent $pipe->reader(); @@ -184,7 +184,7 @@ IO::Pipe - supply object methods for pipes or - $pipe = new IO::Pipe; + $pipe = IO::Pipe->new(); $pipe->reader(qw(ls -l)); |