PATCH: 2 vms specific build files in perl @ 27383

[p5sagit/p5-mst-13.2.git] / ext / Compress / Zlib / t / 10defhdr.t

diff --git a/ext/Compress/Zlib/t/10defhdr.t b/ext/Compress/Zlib/t/10defhdr.t
index d75431c..55e9cea 100644 (file)
--- a/ext/Compress/Zlib/t/10defhdr.t
+++ b/ext/Compress/Zlib/t/10defhdr.t
@@ -1,7 +1,7 @@
 BEGIN {
-    if ($ENV{PERL_CORE} {
+    if ($ENV{PERL_CORE}) {
        chdir 't' if -d 't';
-       @INC = '../lib';
+       @INC = ("../lib", "lib/compress");
     }
 }
 
@@ -107,8 +107,7 @@ sub printHeaderInfo
 # Check the Deflate Header Parameters
 #========================================
 
-my $name = "test.gz" ;
-my $lex = new LexFile $name ;
+my $lex = new LexFile my $name ;
 
 {
     title "Check default header settings" ;
@@ -326,7 +325,7 @@ EOM
         like $IO::Uncompress::Inflate::InflateError,'/Trailer Error: CRC mismatch/',
             "Trailer Error: CRC mismatch";
         ok $gunz->eof() ;
-        ok ! ${ $gunz->trailingData() } ;
+        ok ! $gunz->trailingData() ;
         ok $uncomp eq $string;
         ok $gunz->close ;
     }
@@ -342,7 +341,7 @@ EOM
         my $uncomp ;
         ok $gunz->read($uncomp) >= 0  ;
         ok $gunz->eof() ;
-        ok ! ${ $gunz->trailingData() } ;
+        ok ! $gunz->trailingData() ;
         ok $uncomp eq $string;
         ok $gunz->close ;
     }