Compress::Zlib

From: "Paul Marquess" <paul.marquess@ntlworld.com>
Message-ID: <020d01c6177b$087b1c60$4c05140a@myopwv.com>

p4raw-id: //depot/perl@26800

diff --git a/ext/Compress/Zlib/t/16oneshot-gzip-only.t b/ext/Compress/Zlib/t/16oneshot-gzip-only.t
index d5c7b80..8093219 100644 (file)
--- a/ext/Compress/Zlib/t/16oneshot-gzip-only.t
+++ b/ext/Compress/Zlib/t/16oneshot-gzip-only.t
@@ -70,7 +70,7 @@ sub gzipGetHeader
     my $mtime ;
 
     writeFile($file1, $content);
-    $mtime = (stat($file1))[8];
+    $mtime = (stat($file1))[9];
     # make sure that the gzip file isn't created in the same
     # second as the input file
     sleep 3 ; 
@@ -82,7 +82,7 @@ sub gzipGetHeader
     title "Override Name" ;
 
     writeFile($file1, $content);
-    $mtime = (stat($file1))[8];
+    $mtime = (stat($file1))[9];
     sleep 3 ; 
     $hdr = gzipGetHeader($file1, $content, Name => "abcde");
 

diff --git a/ext/Compress/Zlib/t/16oneshot-zip-only.t b/ext/Compress/Zlib/t/16oneshot-zip-only.t
index 38a91f4..5c8f3c3 100644 (file)
--- a/ext/Compress/Zlib/t/16oneshot-zip-only.t
+++ b/ext/Compress/Zlib/t/16oneshot-zip-only.t
@@ -70,7 +70,7 @@ sub zipGetHeader
     my $mtime ;
 
     writeFile($file1, $content);
-    $mtime = (stat($file1))[8];
+    $mtime = (stat($file1))[9];
     # make sure that the zip file isn't created in the same
     # second as the input file
     sleep 3 ; 
@@ -82,7 +82,7 @@ sub zipGetHeader
     title "Override Name" ;
 
     writeFile($file1, $content);
-    $mtime = (stat($file1))[8];
+    $mtime = (stat($file1))[9];
     sleep 3 ; 
     $hdr = zipGetHeader($file1, $content, Name => "abcde");