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