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