summaryrefslogtreecommitdiff
path: root/cpan/Archive-Tar/t
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2018-06-18 14:00:04 +0100
committerDavid Mitchell <davem@iabyn.com>2018-06-18 14:00:04 +0100
commit91f84d6f2b00acf02762066502c8fac8f7a11cd8 (patch)
treedaa4e0a1bc7c5b060562f9d502e23e8b97416a5c /cpan/Archive-Tar/t
parent197e7984e9f640254af80f8553707bad217f3814 (diff)
downloadperl-91f84d6f2b00acf02762066502c8fac8f7a11cd8.tar.gz
Update Archive-Tar to CPAN version 2.28
[DELTA] +- fix creating file with trailing whitespace on filename - fixes 103279 +- allow archiving with absolute pathnames - fixes 97748 +- small POD fix +- Speed up extract when archive contains lots of files +- CVE-2018-12015 directory traversal vulnerability [RT#125523]
Diffstat (limited to 'cpan/Archive-Tar/t')
-rw-r--r--cpan/Archive-Tar/t/04_resolved_issues.t28
1 files changed, 28 insertions, 0 deletions
diff --git a/cpan/Archive-Tar/t/04_resolved_issues.t b/cpan/Archive-Tar/t/04_resolved_issues.t
index 4572b872be..74332bcef2 100644
--- a/cpan/Archive-Tar/t/04_resolved_issues.t
+++ b/cpan/Archive-Tar/t/04_resolved_issues.t
@@ -247,3 +247,31 @@ use_ok( $FileClass );
clean_78030();
unlink $archname;
}
+
+### bug 97748
+### retain leading '/' for absolute pathnames.
+{ ok( 1, "Testing bug 97748" );
+ my $path= '/absolute/path';
+ my $tar = $Class->new;
+ isa_ok( $tar, $Class, " Object" );
+ my $file;
+
+ ok( $file = $tar->add_data( $path, '' ),
+ " Added $path" );
+
+ ok( $file->full_path eq $path,
+ " Paths mismatch <" . $file->full_path . "> ne <$path>" );
+}
+
+### bug 103279
+### retain trailing whitespace on filename
+{ ok( 1, "Testing bug 103279" );
+ my $tar = $Class->new;
+ isa_ok( $tar, $Class, " Object" );
+ ok( $tar->add_data( 'white_space ', '' ),
+ " Add file <white_space > containing filename with trailing whitespace");
+ ok( $tar->extract(), " Extract filename with trailing whitespace" );
+ ok( ! -e 'white_space', " <white_space> should not exist" );
+ ok( -e 'white_space ', " <white_space > should exist" );
+ unlink foreach ('white_space ', 'white_space');
+}