X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2FTestDriver.pm;h=274e5d36f4bd239274a4e57a3acb6666326becb2;hb=HEAD;hp=e802d2dcf9a07711a5fd32cc5f634ff4e3813c16;hpb=6ccd701d57febc2949c65f461cb17dfa29471d52;p=urisagit%2FFile-Slurp.git

diff --git a/t/TestDriver.pm b/t/TestDriver.pm
index e802d2d..274e5d3 100644
--- a/t/TestDriver.pm
+++ b/t/TestDriver.pm
@@ -4,16 +4,19 @@ use Test::More ;
 
 BEGIN {
 	*CORE::GLOBAL::syswrite =
-	sub(*\$$;$) { my( $h, $b, $s ) = @_; CORE::syswrite $h, $b, $s } ;
+	sub($$$;$) { my( $h, $b, $s, $o ) = @_; CORE::syswrite $h, $b, $s, $o} ;
+#	sub(*\$$;$) { my( $h, $b, $s, $o ) = @_; CORE::syswrite $h, $b, $s, $o } ;
 
 	*CORE::GLOBAL::sysread =
-	sub(*\$$;$) { my( $h, $b, $s ) = @_; CORE::sysread $h, $b, $s } ;
+	sub($$$;$) { my( $h, $b, $s, $o ) = @_; CORE::sysread $h, $b, $s, $o } ;
+#	sub(*\$$;$) { my( $h, $b, $s, $o ) = @_; CORE::sysread $h, $b, $s, $o } ;
 
 	*CORE::GLOBAL::rename =
 	sub($$) { my( $old, $new ) = @_; CORE::rename $old, $new } ;
 
 	*CORE::GLOBAL::sysopen =
-	sub(*$$;$) { my( $h, $n, $m, $p ) = @_; CORE::sysopen $h, $n, $m, $p } ;
+	sub($$$;$) { my( $h, $n, $m, $p ) = @_; CORE::sysopen $h, $n, $m, $p } ;
+#	sub(*$$;$) { my( $h, $n, $m, $p ) = @_; CORE::sysopen $h, $n, $m, $p } ;
 }
 
 sub test_driver {