From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 27 Aug 2005 16:28:27 +0000 (+0000)
Subject: Fix failure in Archive::Tar tests when perl is built
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e47f548c093b350361bd9e0cca5bdad7db4d9aff;p=p5sagit%2Fp5-mst-13.2.git

Fix failure in Archive::Tar tests when perl is built
with -Dmksymlinks

p4raw-id: //depot/perl@25333
---

diff --git a/lib/Archive/Tar/t/02_methods.t b/lib/Archive/Tar/t/02_methods.t
index 9f9d667..9bb97be 100644
--- a/lib/Archive/Tar/t/02_methods.t
+++ b/lib/Archive/Tar/t/02_methods.t
@@ -220,7 +220,13 @@ chmod 0644, $COMPRESS_FILE;
         is( scalar @files, scalar @add,
                                     "Adding files");
         is( $files[0]->name, 'b',   "   Proper name" );
-        is( $files[0]->is_file, 1,  "   Proper type" );
+	use Config;
+	if ($ENV{PERL_CORE} and $Config{config_args} =~/Dmksymlinks/) {
+	    ok( !$files[0]->is_file,  "   Proper type" );
+	}
+	else {
+	    is( $files[0]->is_file, 1,  "   Proper type" );
+	}
         like( $files[0]->get_content, qr/^bbbbbbbbbbb\s*$/,
                                     "   Content OK" );