r54405 - in /trunk/dh-make-perl/lib/DhMakePerl/Command: Packaging.pm refresh.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Mar 17 09:15:05 2010
New Revision: 54405

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54405
Log:
backup rules only when overwriting

otherwise, the file is renamed and Rules can't read it; then a fresh one
is created; the net result was that d/rules is always re-created even if
it already uses dh7tiny style

Again, thanks to carnil.

Modified:
    trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm
    trunk/dh-make-perl/lib/DhMakePerl/Command/refresh.pm

Modified: trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm?rev=54405&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm Wed Mar 17 09:15:05 2010
@@ -627,6 +627,8 @@
             if $self->cfg->verbose;
         return;
     }
+
+    $self->backup_file($file);
 
     for my $source (
         catfile( $self->cfg->home_dir, $rulesname ),

Modified: trunk/dh-make-perl/lib/DhMakePerl/Command/refresh.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl/Command/refresh.pm?rev=54405&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/refresh.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/refresh.pm Wed Mar 17 09:15:05 2010
@@ -48,7 +48,6 @@
         if @{ $self->examples } and $self->cfg->verbose;
 
     if ( 'rules' ~~ $self->cfg->only ) {
-        $self->backup_file( $self->debian_file('rules') );
         $self->create_rules( $self->debian_file('rules') );
         if ( !-f $self->debian_file('compat') or $self->cfg->dh == 7 ) {
             $self->create_compat( $self->debian_file('compat') );