r27042 - in /trunk/dh-make-perl: debian/changelog dh-make-perl

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Wed Nov 19 17:55:19 2008
New Revision: 27042

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27042
Log:
Replace 'This module' with the real module name in the created long
description and wrap the description to a sane width (closes: #506071).

Modified:
    trunk/dh-make-perl/debian/changelog
    trunk/dh-make-perl/dh-make-perl

Modified: trunk/dh-make-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/changelog?rev=27042&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Wed Nov 19 17:55:19 2008
@@ -1,3 +1,10 @@
+dh-make-perl (0.50) UNRELEASED; urgency=low
+
+  * Replace 'This module' with the real module name in the created long
+    description and wrap the description to a sane width (closes: #506071).
+
+ -- gregor herrmann <gregoa at debian.org>  Wed, 19 Nov 2008 18:52:03 +0100
+
 dh-make-perl (0.49) unstable; urgency=low
 
   [ Damyan Ivanov ]

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=27042&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Wed Nov 19 17:55:19 2008
@@ -11,6 +11,7 @@
 use CPAN;
 use Module::Depends::Intrusive;
 use Email::Date::Format qw(email_date);
+use Text::Wrap;
 use strict;
 
 # TODO: 
@@ -645,7 +646,7 @@
 }
 
 sub extract_desc {
-        my ($file, $parser);
+        my ($file, $parser, $modulename);
 	$file = shift;
 	$parser = new MyPod;
 	return unless -f $file;
@@ -674,6 +675,11 @@
 		$longdesc = $parser->get('DESCRIPTION')
 			|| $parser->get('DETAILS')
 			|| $desc;
+		($modulename = $perlname) =~ s/-/::/g;
+		$longdesc =~ s/This module/$modulename/;
+		
+		local($Text::Wrap::columns) = 78;
+		$longdesc = fill("", "", $longdesc);
 	}
 	if (defined $longdesc && $longdesc !~ /^$/) {
 		$longdesc =~ s/^\s+//s;