r5692 - in /packages/libarchive-tar-perl/trunk: CHANGES META.yml debian/changelog debian/control 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:58:42 UTC 2007
Author: rmayorga-guest
Date: Tue Jul 3 22:58:41 2007
New Revision: 5692
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5692
Log:
* New upstream version
Modified:
packages/libarchive-tar-perl/trunk/CHANGES
packages/libarchive-tar-perl/trunk/META.yml
packages/libarchive-tar-perl/trunk/debian/changelog
packages/libarchive-tar-perl/trunk/debian/control
packages/libarchive-tar-perl/trunk/lib/Archive/Tar.pm
packages/libarchive-tar-perl/trunk/lib/Archive/Tar/Constant.pm
packages/libarchive-tar-perl/trunk/lib/Archive/Tar/File.pm
Modified: packages/libarchive-tar-perl/trunk/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libarchive-tar-perl/trunk/CHANGES?rev=5692&op=diff
==============================================================================
--- packages/libarchive-tar-perl/trunk/CHANGES (original)
+++ packages/libarchive-tar-perl/trunk/CHANGES Tue Jul 3 22:58:41 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/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libarchive-tar-perl/trunk/META.yml?rev=5692&op=diff
==============================================================================
--- packages/libarchive-tar-perl/trunk/META.yml (original)
+++ packages/libarchive-tar-perl/trunk/META.yml Tue Jul 3 22:58:41 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/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libarchive-tar-perl/trunk/debian/changelog?rev=5692&op=diff
==============================================================================
--- packages/libarchive-tar-perl/trunk/debian/changelog (original)
+++ packages/libarchive-tar-perl/trunk/debian/changelog Tue Jul 3 22:58:41 2007
@@ -1,3 +1,9 @@
+libarchive-tar-perl (1.32-1) UNRELEASED; urgency=low
+
+ * (NOT RELEASED YET) New upstream release
+
+ -- Rene Mayorga <rmayorga at debian.org.sv> Tue, 03 Jul 2007 16:56:17 -0600
+
libarchive-tar-perl (1.31-1) unstable; urgency=low
* New upstream release
Modified: packages/libarchive-tar-perl/trunk/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libarchive-tar-perl/trunk/debian/control?rev=5692&op=diff
==============================================================================
--- packages/libarchive-tar-perl/trunk/debian/control (original)
+++ packages/libarchive-tar-perl/trunk/debian/control Tue Jul 3 22:58:41 2007
@@ -2,7 +2,7 @@
Section: perl
Priority: optional
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: gregor herrmann <gregor+debian at comodo.priv.at>, Alexis Sukrieh <sukria at debian.org>, Gunnar Wolf <gwolf at debian.org>
+Uploaders: gregor herrmann <gregor+debian at comodo.priv.at>, Alexis Sukrieh <sukria at debian.org>, Gunnar Wolf <gwolf at debian.org>, Rene Mayorga <rmayorga at debian.org.sv>
XS-Vcs-Svn: svn://svn.debian.org/pkg-perl/packages/libarchive-tar-perl/trunk/
Standards-Version: 3.7.2
Build-Depends: debhelper (>= 5), dpatch
Modified: packages/libarchive-tar-perl/trunk/lib/Archive/Tar.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libarchive-tar-perl/trunk/lib/Archive/Tar.pm?rev=5692&op=diff
==============================================================================
--- packages/libarchive-tar-perl/trunk/lib/Archive/Tar.pm (original)
+++ packages/libarchive-tar-perl/trunk/lib/Archive/Tar.pm Tue Jul 3 22:58:41 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/trunk/lib/Archive/Tar/Constant.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libarchive-tar-perl/trunk/lib/Archive/Tar/Constant.pm?rev=5692&op=diff
==============================================================================
--- packages/libarchive-tar-perl/trunk/lib/Archive/Tar/Constant.pm (original)
+++ packages/libarchive-tar-perl/trunk/lib/Archive/Tar/Constant.pm Tue Jul 3 22:58:41 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/trunk/lib/Archive/Tar/File.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libarchive-tar-perl/trunk/lib/Archive/Tar/File.pm?rev=5692&op=diff
==============================================================================
--- packages/libarchive-tar-perl/trunk/lib/Archive/Tar/File.pm (original)
+++ packages/libarchive-tar-perl/trunk/lib/Archive/Tar/File.pm Tue Jul 3 22:58:41 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