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

[dmn at users.alioth.debian.org]

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';
 }