r54410 - /trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Mar 17 10:27:58 2010
New Revision: 54410

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54410
Log:
create_rules: close current file before backing up

this avoids us writing to the backup file after the move

Modified:
    trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.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=54410&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm Wed Mar 17 10:27:58 2010
@@ -628,7 +628,12 @@
         return;
     }
 
+    # first close the currently open filehandle
+    $self->rules(undef);
+
     $self->backup_file($file);
+
+    $self->rules( Debian::Rules->new($file) );
 
     for my $source (
         catfile( $self->cfg->home_dir, $rulesname ),