r36857 - in /trunk/dh-make-perl: debian/changelog lib/DhMakePerl.pm

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sat May 30 17:01:25 2009
New Revision: 36857

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=36857
Log:
Create backup of debian/control in --refresh mode.

Modified:
    trunk/dh-make-perl/debian/changelog
    trunk/dh-make-perl/lib/DhMakePerl.pm

Modified: trunk/dh-make-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/changelog?rev=36857&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Sat May 30 17:01:25 2009
@@ -35,6 +35,9 @@
       date with regard to quilt usage
     + if apt-file data is available, update package dependencies from META
     + Dependencies are sorted
+
+  [ gregor herrmann ]
+  * Create backup of debian/control in --refresh mode.
 
  -- gregor herrmann <gregoa at debian.org>  Mon, 27 Apr 2009 16:42:59 +0200
 

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=36857&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Sat May 30 17:01:25 2009
@@ -188,6 +188,9 @@
         die "debian/copyright.bak already exists. Aborting!\n"
             if -e "debian/copyright.bak";
 
+        die "debian/control.bak already exists. Aborting!\n"
+            if -e "debian/control.bak";
+
         $meta = $self->process_meta( $self->main_file('META.yml') )
             if ( -f $self->main_file('META.yml') );
         ( $pkgname, $version )
@@ -260,6 +263,8 @@
             }
         }
 
+        copy( "$debiandir/control", "$debiandir/control.bak" )
+            if $self->cfg->backups;
         $control->write("$debiandir/control");
 
         print "--- Done\n" if $self->cfg->verbose;