view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

0.30    Tue Dec 16 17:32:13 2008

* This is a test suite fix; users of 0.28 need not upgrade.
* Archive::Extract would not reliably skip binary extraction
  tests when no binaries were found in $PATH, which causes
  test suite failures.

0.28    Fri Oct 10 15:22:51 2008

* Address: #39554: Must set $Archive::Tar::CHOWN, not
  $Archive::Tar::Constant::CHOWN to control the chown()
  functionality when using Archive::Tar.
* Various test suite improvements to test warnings 
  and errors emitted by Archive::Extract.

0.27_02 Wed Sep 24 17:37:52 2008

* Test & build improvements: users of 0.27_01 need 
  not upgrade.
* Test suite would die if no files were reported 
  to be extracted, because Test::More::is() would

lib/Archive/Extract.pm  view on Meta::CPAN

                return $self->_error(loc("Unable to read '%1': %2",
                            $self->archive, $Archive::Tar::error));
            }

            ### workaround to prevent Archive::Tar from setting uid, which
            ### is a potential security hole. -autrijus
            ### have to do it here, since A::T needs to be /loaded/ first ###
            {   no strict 'refs'; local $^W;

                ### older versions of archive::tar <= 0.23
                *Archive::Tar::chown = sub {};
            }

            {   local $^W;  # quell 'splice() offset past end of array' warnings
                            # on older versions of A::T

                ### older archive::tar always returns $self, return value
                ### slightly fux0r3d because of it.
                $tar->extract or return $self->_error(loc(
                        "Unable to extract '%1': %2",
                        $self->archive, $Archive::Tar::error ));