diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/IPC/Open2.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/IPC/Open2.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/IPC/Open2.pm b/Master/tlpkg/tlperl/lib/IPC/Open2.pm index 5f555bcfa4e..9e27144571d 100644 --- a/Master/tlpkg/tlperl/lib/IPC/Open2.pm +++ b/Master/tlpkg/tlperl/lib/IPC/Open2.pm @@ -6,7 +6,7 @@ our ($VERSION, @ISA, @EXPORT); require 5.000; require Exporter; -$VERSION = 1.03; +$VERSION = 1.04; @ISA = qw(Exporter); @EXPORT = qw(open2); @@ -114,8 +114,7 @@ require IPC::Open3; sub open2 { local $Carp::CarpLevel = $Carp::CarpLevel + 1; - return IPC::Open3::_open3('open2', scalar caller, - $_[1], $_[0], '>&STDERR', @_[2 .. $#_]); + return IPC::Open3::_open3('open2', $_[1], $_[0], '>&STDERR', @_[2 .. $#_]); } 1 |