diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-23 16:18:21 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-23 16:18:21 +0000 |
| commit | 433f2541b8f5648227bfd63195be86e0e194a278 (patch) | |
| tree | 0ff13fa4d94385b33b154bf836345402f76d5610 /lib/Archive | |
| parent | 3555aed318c911f03e043aa0f36a2f85eb8ba18d (diff) | |
| download | perl-433f2541b8f5648227bfd63195be86e0e194a278.tar.gz | |
Fix Archive::Tar test when perl is built with -Dmksymlinks
p4raw-id: //depot/perl@24961
Diffstat (limited to 'lib/Archive')
| -rw-r--r-- | lib/Archive/Tar/t/02_methods.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Archive/Tar/t/02_methods.t b/lib/Archive/Tar/t/02_methods.t index d8c0ae950d..82f3777fd6 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" ); |