r57315 - /trunk/dh-make-perl/privinc/My/Builder.pm

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Sun May 2 14:22:30 UTC 2010


Author: dmn
Date: Sun May  2 14:22:14 2010
New Revision: 57315

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57315
Log:
My::Builder/orig: create tarballs soutable for both Debian and CPAN

They are hardlinked, therefore identical.

Modified:
    trunk/dh-make-perl/privinc/My/Builder.pm

Modified: trunk/dh-make-perl/privinc/My/Builder.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/privinc/My/Builder.pm?rev=57315&op=diff
==============================================================================
--- trunk/dh-make-perl/privinc/My/Builder.pm (original)
+++ trunk/dh-make-perl/privinc/My/Builder.pm Sun May  2 14:22:14 2010
@@ -11,10 +11,17 @@
     my $dn       = $self->dist_name;
     my $ver      = $self->dist_version;
     my $pkg_name = 'dh-make-perl';
-    rename "$dn-$ver.tar.gz", "../$pkg_name\_$ver.orig.tar.gz";
+    my $orig = "$pkg_name\_$ver.orig.tar.gz";
+    my $dist = "$dn-$ver.tar.gz";
+    rename $dist, "../$orig" or die "rename( $dist, ../$orig ): $!";
+    print "../$orig ready.\n";
+    if ( -e "../$dist" ) {
+        unlink("../$dist") or die "unlink(../$dist): $!";
+    }
+    link "../$orig", "../$dist" or die "link( ../$orig, ../$dist ): $!";
+    print "../$dist (hardlinked with $orig) ready.\n";
     $self->ACTION_distclean;
     unlink 'MANIFEST', 'MANIFEST.bak', 'META.yml';
-    print "../$pkg_name\_$ver.orig.tar.gz ready.\n";
 }
 
 sub ACTION_dist {




More information about the Pkg-perl-cvs-commits mailing list