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