X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FIPC%2FOpen3.pm;h=5c9c69ad0287a707531d08cc3f5a09df071d83d1;hb=a8d38795b399b1ac07aef5af6225e78a36669c9a;hp=5078a9aaebb4f28e8fc0ca32c1402a000b06372d;hpb=ba150778a275fe09ed60684409793c898b78655e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/IPC/Open3.pm b/lib/IPC/Open3.pm
index 5078a9a..5c9c69a 100644
--- a/lib/IPC/Open3.pm
+++ b/lib/IPC/Open3.pm
@@ -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';