r57317 - /trunk/dh-make-perl/privinc/My/Builder.pm
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Sun May 2 14:23:31 UTC 2010
Author: dmn
Date: Sun May 2 14:23:20 2010
New Revision: 57317
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57317
Log:
Builder: more verbose moving and linking
now it looks like the rest of M:B
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=57317&op=diff
==============================================================================
--- trunk/dh-make-perl/privinc/My/Builder.pm (original)
+++ trunk/dh-make-perl/privinc/My/Builder.pm Sun May 2 14:23:20 2010
@@ -13,13 +13,14 @@
my $pkg_name = 'dh-make-perl';
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): $!";
+ print "Moving $dist to ../\n";
+ rename $dist, "../$dist" or die "rename( $dist, ../$dist ): $!";
+ if ( -e "../$orig" ) {
+ print "Deleting ../$orig\n";
+ unlink("../$orig") or die "unlink(../$orig): $!";
}
- link "../$orig", "../$dist" or die "link( ../$orig, ../$dist ): $!";
- print "../$dist (hardlinked with $orig) ready.\n";
+ print "Linking ../$orig to ../$dist\n";
+ link "../$dist", "../$orig" or die "link( ../$dist, ../$orig ): $!";
$self->ACTION_distclean;
unlink 'MANIFEST', 'MANIFEST.bak', 'META.yml';
}
More information about the Pkg-perl-cvs-commits
mailing list