r24036 - /trunk/dh-make-perl/dh-make-perl

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Sat Aug 9 23:37:43 UTC 2008


Author: gregoa
Date: Sat Aug  9 23:37:40 2008
New Revision: 24036

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=24036
Log:
--refresh: recreate also d/copyright, backup d/rules and d/copyright
(first attempt)

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=24036&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Sat Aug  9 23:37:40 2008
@@ -148,6 +148,15 @@
 
 $arch = $opts{arch} if defined $opts{arch};
 
+if (defined $opts{e}) {
+  $email = $opts{e};
+} elsif (defined $opts{email}) {
+  $email = $opts{email};
+} else {
+  $email = '';
+}
+$maintainer = get_maintainer($email);
+
 if ( $opts{refresh} )
 {
     print "Engaging refresh mode\n";
@@ -162,12 +171,15 @@
     print "Found changelog: $changelog\n" if defined $changelog;
     print "Found docs: @docs\n";
     print "Found examples: @examples\n" if @examples;
+    copy("$debiandir/rules", "$debiandir/rules.bak");
     create_rules("$debiandir/rules");
     fix_rules(
         "$debiandir/rules",
         (defined $changelog ? $changelog : ''),
         \@docs, \@examples,
     );
+    copy("$debiandir/copyright", "$debiandir/copyright.bak");
+    create_copyright("$debiandir/copyright");
     print "--- Done\n";
     exit 0;
 }
@@ -177,14 +189,6 @@
 $meta = process_meta("$maindir/META.yml") if (-f "$maindir/META.yml");
 findbin_fix();
 
-if (defined $opts{e}) {
-  $email = $opts{e};
-} elsif (defined $opts{email}) {
-  $email = $opts{email};
-} else {
-  $email = '';
-}
-$maintainer = get_maintainer($email);
 
 if (defined $opts{desc}) {
   $desc = $opts{desc};




More information about the Pkg-perl-cvs-commits mailing list