Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

set extract_path (noticed by blue)

  • Loading branch information...
commit 0020aeade3817ab9f7d7a3a56be402a177b8a4f8 1 parent 98845d8
Léon Brocard authored
Showing with 5 additions and 0 deletions.
  1. +3 −0  CHANGES
  2. +1 −0  lib/Archive/Extract/Libarchive.pm
  3. +1 −0  t/simple.t
3  CHANGES
View
@@ -1,5 +1,8 @@
Revision history for Perl module Archive::Extract::Libarchive:
+0.38
+ - set extract_path (noticed by blue)
+
0.37 Sun Oct 30 09:01:50 GMT 2011
- expand the test suite
1  lib/Archive/Extract/Libarchive.pm
View
@@ -23,6 +23,7 @@ sub extract {
return 0;
}
+ $self->{extract_path} = $extract_path;
return 1;
}
1  t/simple.t
View
@@ -29,6 +29,7 @@ sub test_archive {
rmtree($extracted) if -d $extracted;
is( $ae->extract( to => $extracted ), 1, "Can extract $filename" );
+ is( $ae->extract_path, $extracted, "extract_path set" );
is( $ae->error, undef, "Do not have error" );
is_deeply( [ sort @{ $ae->files } ],
\@filenames, "Can read files inside $filename" );
Please sign in to comment.
Something went wrong with that request. Please try again.