X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FCompress%2FZlib%2Ft%2F10defhdr.t;h=55e9ceaee8934e293d1b50ba58c0882a4bc1f1ab;hb=e8e0953481a8eb69731d048ec19e15bbd537fd73;hp=d75431c49eed6b0a75b347b1a8a71d22977f0ad8;hpb=16816334e212c70aca1836b4031924af481891ad;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Compress/Zlib/t/10defhdr.t b/ext/Compress/Zlib/t/10defhdr.t
index d75431c..55e9cea 100644
--- 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 ;
     }