[svn:Module-Build] r12147 - Module-Build/trunk/lib/Module/Build

[ericwilhelm]

Author: ericwilhelm
Date: Thu Dec 11 12:13:27 2008
New Revision: 12147

Modified:
   Module-Build/trunk/lib/Module/Build/Base.pm

Log:
lib/Module/Build/Base.pm - tidying in make_tarball


Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Thu Dec 11 12:13:27 2008
@@ -3784,16 +3784,18 @@
     $self->do_system($self->split_like_shell($self->{args}{gzip}), 
"$file.tar") if $self->{args}{gzip};
   } else {
     require Archive::Tar;
+
     # Archive::Tar versions >= 1.09 use the following to enable a compatibility
     # hack so that the resulting archive is compatible with older clients.
     $Archive::Tar::DO_NOT_USE_PREFIX = 0;
+
     my $files = $self->rscan_dir($dir);
-    my $tar = Archive::Tar->new;
-    $tar->add_files( @$files );
-    for my $f ( $tar->get_files ) {
-      $f->mode( $f->mode & ~022 ); # chmod go-w
+    my $tar   = Archive::Tar->new;
+    $tar->add_files(@$files);
+    for my $f ($tar->get_files) {
+      $f->mode($f->mode & ~022); # chmod go-w
     }
-    $tar->write( "$file.tar.gz", 1 );
+    $tar->write("$file.tar.gz", 1);
   }
 }