r32329 - in /trunk/dh-make-perl: debian/changelog lib/DhMakePerl.pm

[ryan52-guest at users.alioth.debian.org]

Author: ryan52-guest
Date: Wed Mar 25 02:43:36 2009
New Revision: 32329

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32329
Log:
if the short description already starts with a space (for who knows
what reason..), don't add a space after the :

Modified:
    trunk/dh-make-perl/debian/changelog
    trunk/dh-make-perl/lib/DhMakePerl.pm

Modified: trunk/dh-make-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/changelog?rev=32329&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Wed Mar 25 02:43:36 2009
@@ -19,8 +19,10 @@
   * add myself to uploaders
   * when refreshing, extract the debian/* copyright holders and years
     from debian/changelog
-
- -- Ryan Niebur <ryanryan52 at gmail.com>  Tue, 24 Mar 2009 19:28:25 -0700
+  * if the short description already starts with a space (for who knows
+    what reason..), don't add a space after the :
+
+ -- Ryan Niebur <ryanryan52 at gmail.com>  Tue, 24 Mar 2009 19:43:21 -0700
 
 dh-make-perl (0.52) unstable; urgency=low
 

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=32329&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Wed Mar 25 02:43:36 2009
@@ -1234,7 +1234,7 @@
     $fh->print( wrap( '', ' ', "Depends: $depends\n" ) ) if $depends;
     $fh->print($extrapfields) if defined $extrapfields;
     $fh->print(
-        "Description: $desc\n$longdesc\n .\n This description was automagically extracted from the module by dh-make-perl.\n"
+        "Description:" . (($desc =~ m/^ /) ? "" : " ") . "$desc\n$longdesc\n .\n This description was automagically extracted from the module by dh-make-perl.\n"
     );
     $fh->close;
 }