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

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

Author: carnil-guest
Date: Fri Apr 23 06:48:47 2010
New Revision: 56682

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56682
Log:
add "fallback" for short description if none can be found

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=56682&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm Fri Apr 23 06:48:47 2010
@@ -508,6 +508,10 @@
         $my_desc =~ s/^([^\s])/ $1/mg;
         $my_desc =~ s/\n.*$//s;
         $desc = $my_desc;
+    }
+    else {
+        # have a fall-back for the short description
+        $desc = '(no short description found)';
     }
 
     # Replace linefeeds (not followed by a space) in short description with