set $Archive::Tar::CHOWN=0 (RT#46384)

dagolden · May 29, 2009 · 6acfe7a · 6acfe7a
1 parent 05bd074
commit 6acfe7a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -1,3 +1,6 @@
+
+	* sets $Archive::Tar::CHOWN=0 (RT#46384 reported by John Lightsey)
+
 2009-05-24  Andreas J. Koenig  <andk@cpan.org>
 
 	* this is release 1.94

diff --git a/lib/CPAN/Tarzip.pm b/lib/CPAN/Tarzip.pm
@@ -311,9 +311,10 @@ Can't continue cutting file '$file'.
         unless ($CPAN::META->has_usable("Archive::Tar")) {
             $CPAN::Frontend->mydie("Archive::Tar not installed, please install it to continue");
         }
-        # Make sure AT does not use permissions in the archive
+        # Make sure AT does not use uid/gid/permissions in the archive
         # This leaves it to the user's umask instead
         local $Archive::Tar::CHMOD = 0;
+        local $Archive::Tar::CHOWN = 0;
         my $tar = Archive::Tar->new($file,1);
         my $af; # archive file
         my @af;