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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sun Apr 11 10:14:49 2010
New Revision: 55937

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55937
Log:
extract_desc: be loud when unable to extract long description

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=55937&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm Sun Apr 11 10:14:49 2010
@@ -529,11 +529,12 @@
         $long_desc = fill( "", "", $long_desc );
     }
 
-    if ( defined($long_desc) && $long_desc !~ /^$/ ) {
+    if ( defined($long_desc) ) {
         $long_desc =~ s/^[\s\n]+//s;
         $long_desc =~ s/\s+$//s;
         $long_desc =~ s/^\t/ /mg;
         $long_desc =~ s/\r//g;
+        $long_desc = '(no description was found)' if $long_desc eq '';
 
         $bin->long_description(
             "$long_desc\n\nThis description was automagically extracted from the module by dh-make-perl.\n"