diff -Nurd -x'*~' PerlIO-gzip-0.18.orig/t/read.t PerlIO-gzip-0.18/t/read.t
--- PerlIO-gzip-0.18.orig/t/read.t	2006-10-01 17:08:10.000000000 -0400
+++ PerlIO-gzip-0.18/t/read.t	2010-08-09 14:40:12.000000000 -0400
@@ -28,7 +28,7 @@
 
 my $perlgz = "perl.gz";
 my $done_perlgz;
-my $command = "gzip -c --fast $^X >$perlgz";
+my $command = "gzip -c --fast /usr/bin/perl >$perlgz";
 my $unread_bug = "Can't unread then push layer on :unix [core perlio bug]";
 my $unread_stdio_bug
  = "Can't unread the push layer on :stdio [core perlio bug]";
@@ -138,7 +138,7 @@
       # local $TODO = $unread_bug if $buffering eq ':unix';
       local $TODO = $win32_stdio_hairy
 	  if $buffering eq ':stdio' && $^O eq 'MSWin32';
-      ok (compare ($^X, \*GZ) == 0, "compare with original $^X");
+      ok (compare ("/usr/bin/perl", \*GZ) == 0, "compare with original /usr/bin/perl");
     }
     ok (eof (GZ), 'should be end of file');
   TODO: {