diff options
author | David Mitchell <davem@iabyn.com> | 2018-06-18 14:00:04 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2018-06-18 14:00:04 +0100 |
commit | 91f84d6f2b00acf02762066502c8fac8f7a11cd8 (patch) | |
tree | daa4e0a1bc7c5b060562f9d502e23e8b97416a5c /cpan/Archive-Tar/t | |
parent | 197e7984e9f640254af80f8553707bad217f3814 (diff) | |
download | perl-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.t | 28 |
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'); +} |