Silence some diagnostic messages when running within the core tests.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 20 Apr 2007 15:03:57 +0000 (15:03 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 20 Apr 2007 15:03:57 +0000 (15:03 +0000)
By Jerry D. Hedden

p4raw-id: //depot/perl@30997

lib/Archive/Extract/t/01_Archive-Extract.t
lib/Archive/Tar/t/02_methods.t

index 2a255f5..43b92db 100644 (file)
@@ -33,7 +33,7 @@ use Module::Load::Conditional   qw[check_install];
 #         Archive::Extract::extract('Archive::Extract=HASH(0x966eac)','to','/Users/kane/sources/p4/other/archive-extract/t/out') called at t/01_Archive-Extract.t line 180
 #BEGIN { $SIG{__WARN__} = sub { require Carp; Carp::cluck(@_) } };
 
-if( IS_WIN32 or IS_CYGWIN ) {
+if ((IS_WIN32 or IS_CYGWIN) && ! $ENV{PERL_CORE}) {
     diag( "Older versions of Archive::Zip may cause File::Spec warnings" );
     diag( "See bug #19713 in rt.cpan.org. It is safe to ignore them" );
 }
index c717a8f..b8c7ab2 100644 (file)
@@ -65,8 +65,11 @@ my $TOO_LONG    =   ($^O eq 'MSWin32' or $^O eq 'cygwin' or $^O eq 'VMS')
                     && length( cwd(). $LONG_FILE ) > 247;
 
 ### warn if we are going to skip long file names
-$TOO_LONG ? diag("No long filename support - long filename extraction disabled")
-          : ( push @EXPECT_NORMAL, [ [], $LONG_FILE, qr/^hello\s*$/] ) ;
+if ($TOO_LONG) {
+    diag("No long filename support - long filename extraction disabled") if ! $ENV{PERL_CORE};
+} else {
+    push @EXPECT_NORMAL, [ [], $LONG_FILE, qr/^hello\s*$/];
+}
 
 my @ROOT        = grep { length }   'src', $TOO_LONG ? 'short' : 'long';