diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-08-27 16:28:27 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-08-27 16:28:27 +0000 |
commit | e47f548c093b350361bd9e0cca5bdad7db4d9aff (patch) | |
tree | 8cecf0323530d5ae8a147459a326069781ad298e /lib/Archive | |
parent | 50d383f8434c97005f54b5b05120a85722081acd (diff) | |
download | perl-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.t | 8 |
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" ); |