[FIX] Re: UTF-8 failures (surprise!)

[p5sagit/p5-mst-13.2.git] / lib / IPC / Open3.pm

diff --git a/lib/IPC/Open3.pm b/lib/IPC/Open3.pm
index 5078a9a..b59b09c 100644 (file)
--- a/lib/IPC/Open3.pm
+++ b/lib/IPC/Open3.pm
@@ -9,7 +9,7 @@ require Exporter;
 use Carp;
 use Symbol qw(gensym qualify);
 
-$VERSION       = 1.0103;
+$VERSION       = 1.0104;
 @ISA           = qw(Exporter);
 @EXPORT                = qw(open3);
 
@@ -145,9 +145,8 @@ sub fh_is_fd {
 }
 
 sub xfileno {
-    my ($fh) = @_;
-    return $1 if =~ /\A=?(\d+)\z/;  # deal with $fh just being an fd
-    return fileno $fh;
+    return $1 if $_[0] =~ /\A=?(\d+)\z/;  # deal with fh just being an fd
+    return fileno $_[0];
 }
 
 my $do_spawn = $^O eq 'os2' || $^O eq 'MSWin32';