From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 28 Jun 2000 15:33:45 +0000 (+0000)
Subject: small thinko tweaks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a8d38795b399b1ac07aef5af6225e78a36669c9a;p=p5sagit%2Fp5-mst-13.2.git

small thinko tweaks

p4raw-id: //depot/cfgperl@6255
---

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';
diff --git a/t/op/my_stash.t b/t/op/my_stash.t
index ba266bf..79f3f28 100644
--- a/t/op/my_stash.t
+++ b/t/op/my_stash.t
@@ -2,6 +2,10 @@
 
 package Foo;
 
+BEGIN {
+    unshift @INC, "../lib";
+}
+
 use Test;
 
 plan tests => 7;