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]

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];