summaryrefslogtreecommitdiff
path: root/lib/Archive
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-08-27 16:28:27 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-08-27 16:28:27 +0000
commite47f548c093b350361bd9e0cca5bdad7db4d9aff (patch)
tree8cecf0323530d5ae8a147459a326069781ad298e /lib/Archive
parent50d383f8434c97005f54b5b05120a85722081acd (diff)
downloadperl-e47f548c093b350361bd9e0cca5bdad7db4d9aff.tar.gz
Fix failure in Archive::Tar tests when perl is built
with -Dmksymlinks p4raw-id: //depot/perl@25333
Diffstat (limited to 'lib/Archive')
-rw-r--r--lib/Archive/Tar/t/02_methods.t8
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/Archive/Tar/t/02_methods.t b/lib/Archive/Tar/t/02_methods.t
index 9f9d667ec2..9bb97beeee 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" );