From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 23 Jun 2005 16:18:21 +0000 (+0000)
Subject: Fix Archive::Tar test when perl is built with -Dmksymlinks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=433f2541b8f5648227bfd63195be86e0e194a278;p=p5sagit%2Fp5-mst-13.2.git

Fix Archive::Tar test when perl is built with -Dmksymlinks

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

diff --git a/lib/Archive/Tar/t/02_methods.t b/lib/Archive/Tar/t/02_methods.t
index d8c0ae9..82f3777 100644
--- a/lib/Archive/Tar/t/02_methods.t
+++ b/lib/Archive/Tar/t/02_methods.t
@@ -221,7 +221,7 @@ END { unlink $COMPRESS_FILE; }
         is( scalar @files, scalar @add,
                                     "Adding files");
         is( $files[0]->name, 'b',   "   Proper name" );
-        is( $files[0]->is_file, 1,  "   Proper type" );
+        is( $files[0]->is_file, !-l $add[0] && -f _,  "   Proper type" );
         like( $files[0]->get_content, qr/^bbbbbbbbbbb\s*$/,
                                     "   Content OK" );