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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sun Mar 14 17:30:28 2010
New Revision: 54324

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54324
Log:
move backup_file() from make/refresh to Packaging

Modified:
    trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm
    trunk/dh-make-perl/lib/DhMakePerl/Command/make.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=54324&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm Sun Mar 14 17:30:28 2010
@@ -1085,6 +1085,25 @@
     return 0;
 }
 
+=item backup_file(file_name)
+
+Creates a backup copy of the specified file by adding C<.bak> to its name. If
+the backup already exists, it is overwritten.
+
+Does nothing unless the C<backups> option is set.
+
+=cut
+
+sub backup_file {
+    my( $self, $file ) = @_;
+
+    if ( $self->cfg->backups ) {
+        warn "W: overwriting $file.bak\n"
+            if -e "$file.bak" and $self->cfg->verbose;
+        copy( $file, "$file.bak" );
+    }
+}
+
 =back
 
 =cut

Modified: trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm?rev=54324&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm Sun Mar 14 17:30:28 2010
@@ -67,25 +67,6 @@
 # this is the version in 'oldstable'. No much point on depending on something
 # older
 use constant oldest_perl_version => '5.8.8-7';
-
-=item backup_file(file_name)
-
-Creates a backup copy of the specified file by adding C<.bak> to its name. If
-the backup already exists, it is overwritten.
-
-Does nothing unless the C<backups> option is set.
-
-=cut
-
-sub backup_file {
-    my( $self, $file ) = @_;
-
-    if ( $self->cfg->backups ) {
-        warn "W: overwriting $file.bak\n"
-            if -e "$file.bak" and $self->cfg->verbose;
-        copy( $file, "$file.bak" );
-    }
-}
 
 sub check_deprecated_overrides {
     my $self = shift;

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=54324&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/refresh.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/refresh.pm Sun Mar 14 17:30:28 2010
@@ -105,25 +105,6 @@
     return 0;
 }
 
-=item backup_file(file_name)
-
-Creates a backup copy of the specified file by adding C<.bak> to its name. If
-the backup already exists, it is overwritten.
-
-Does nothing unless the C<backups> option is set.
-
-=cut
-
-sub backup_file {
-    my( $self, $file ) = @_;
-
-    if ( $self->cfg->backups ) {
-        warn "W: overwriting $file.bak\n"
-            if -e "$file.bak" and $self->cfg->verbose;
-        rename( $file, "$file.bak" );
-    }
-}
-
 =item add_quilt( $control )
 
 Plugs quilt into F<debian/rules> and F<debian/control>. Depends on