r5690 - in /packages/libarchive-tar-perl/branches/upstream/current: CHANGES META.yml lib/Archive/Tar.pm lib/Archive/Tar/Constant.pm lib/Archive/Tar/File.pm
rmayorga-guest at users.alioth.debian.org
rmayorga-guest at users.alioth.debian.org
Tue Jul 3 22:55:49 UTC 2007
Author: rmayorga-guest
Date: Tue Jul 3 22:55:48 2007
New Revision: 5690
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5690
Log:
[svn-upgrade] Integrating new upstream version, libarchive-tar-perl (1.32)
Modified:
packages/libarchive-tar-perl/branches/upstream/current/CHANGES
packages/libarchive-tar-perl/branches/upstream/current/META.yml
packages/libarchive-tar-perl/branches/upstream/current/lib/Archive/Tar.pm
packages/libarchive-tar-perl/branches/upstream/current/lib/Archive/Tar/Constant.pm
packages/libarchive-tar-perl/branches/upstream/current/lib/Archive/Tar/File.pm
Modified: packages/libarchive-tar-perl/branches/upstream/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libarchive-tar-perl/branches/upstream/current/CHANGES?rev=5690&op=diff
==============================================================================
--- packages/libarchive-tar-perl/branches/upstream/current/CHANGES (original)
+++ packages/libarchive-tar-perl/branches/upstream/current/CHANGES Tue Jul 3 22:55:48 2007
@@ -1,3 +1,9 @@
+* important changes in version 1.32 24/5/2007:
+- Make Archive::Tar work nicely with perls compiled with
+ -Dmksymlinks. This also fixes an issue introduced in
+ 1.31 where symlinks weren't dereferenced in all cases.
+- Quell warnings when a gid is not resolvable to a group name
+
* important changes in version 1.31 18/5/2007:
- No longer use the t/setup.t and t/cleanup.t files but just bundle
the binary files; this was done for core integration, but the new
Modified: packages/libarchive-tar-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libarchive-tar-perl/branches/upstream/current/META.yml?rev=5690&op=diff
==============================================================================
--- packages/libarchive-tar-perl/branches/upstream/current/META.yml (original)
+++ packages/libarchive-tar-perl/branches/upstream/current/META.yml Tue Jul 3 22:55:48 2007
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Archive-Tar
-version: 1.31
+version: 1.32
version_from: lib/Archive/Tar.pm
installdirs: site
requires:
Modified: packages/libarchive-tar-perl/branches/upstream/current/lib/Archive/Tar.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libarchive-tar-perl/branches/upstream/current/lib/Archive/Tar.pm?rev=5690&op=diff
==============================================================================
--- packages/libarchive-tar-perl/branches/upstream/current/lib/Archive/Tar.pm (original)
+++ packages/libarchive-tar-perl/branches/upstream/current/lib/Archive/Tar.pm Tue Jul 3 22:55:48 2007
@@ -14,7 +14,7 @@
$DEBUG = 0;
$WARN = 1;
$FOLLOW_SYMLINK = 0;
-$VERSION = "1.31";
+$VERSION = "1.32";
$CHOWN = 1;
$CHMOD = 1;
$DO_NOT_USE_PREFIX = 0;
Modified: packages/libarchive-tar-perl/branches/upstream/current/lib/Archive/Tar/Constant.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libarchive-tar-perl/branches/upstream/current/lib/Archive/Tar/Constant.pm?rev=5690&op=diff
==============================================================================
--- packages/libarchive-tar-perl/branches/upstream/current/lib/Archive/Tar/Constant.pm (original)
+++ packages/libarchive-tar-perl/branches/upstream/current/lib/Archive/Tar/Constant.pm Tue Jul 3 22:55:48 2007
@@ -43,8 +43,8 @@
# Pointless assignment to make -w shut up
my $getpwuid; $getpwuid = 'unknown' unless eval { my $f = getpwuid (0); };
my $getgrgid; $getgrgid = 'unknown' unless eval { my $f = getgrgid (0); };
-use constant UNAME => sub { $getpwuid || scalar getpwuid( shift() ) };
-use constant GNAME => sub { $getgrgid || scalar getgrgid( shift() ) };
+use constant UNAME => sub { $getpwuid || scalar getpwuid( shift() ) || '' };
+use constant GNAME => sub { $getgrgid || scalar getgrgid( shift() ) || '' };
use constant UID => $>;
use constant GID => (split ' ', $) )[0];
Modified: packages/libarchive-tar-perl/branches/upstream/current/lib/Archive/Tar/File.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libarchive-tar-perl/branches/upstream/current/lib/Archive/Tar/File.pm?rev=5690&op=diff
==============================================================================
--- packages/libarchive-tar-perl/branches/upstream/current/lib/Archive/Tar/File.pm (original)
+++ packages/libarchive-tar-perl/branches/upstream/current/lib/Archive/Tar/File.pm Tue Jul 3 22:55:48 2007
@@ -237,14 +237,26 @@
my $type = __PACKAGE__->_filetype($path);
my $data = '';
- unless ($type == DIR || $type == SYMLINK) {
- my $fh = IO::File->new;
- $fh->open($path) or return;
-
- ### binmode needed to read files properly on win32 ###
- binmode $fh;
- $data = do { local $/; <$fh> };
- close $fh;
+ READ: {
+ unless ($type == DIR ) {
+ my $fh = IO::File->new;
+
+ unless( $fh->open($path) ) {
+ ### dangling symlinks are fine, stop reading but continue
+ ### creating the object
+ last READ if $type == SYMLINK;
+
+ ### otherwise, return from this function --
+ ### anything that's *not* a symlink should be
+ ### resolvable
+ return;
+ }
+
+ ### binmode needed to read files properly on win32 ###
+ binmode $fh;
+ $data = do { local $/; <$fh> };
+ close $fh;
+ }
}
my @items = qw[mode uid gid size mtime];
More information about the Pkg-perl-cvs-commits
mailing list