r27001 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Tue Nov 18 20:17:14 2008
New Revision: 27001

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27001
Log:
bail out if copyright/rules backups already exist in refresh mode

Modified:
    trunk/dh-make-perl/dh-make-perl

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=27001&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Tue Nov 18 20:17:14 2008
@@ -161,6 +161,13 @@
 {
     print "Engaging refresh mode\n";
     $maindir='.';
+
+    die "debian/rules.bak already exists. Aborting!\n"
+    if -e "debian/rules.bak";
+
+    die "debian/copyright.bak already exists. Aborting!\n"
+    if -e "debian/copyright.bak";
+
     $meta = process_meta("$maindir/META.yml") if (-f "$maindir/META.yml"); # package name
     ($pkgname, $version) = extract_basic();  # also detects arch-dep package
     $module_build = (-f "$maindir/Build.PL") ? "Module-Build" : "MakeMaker";