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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sat Nov 22 13:05:10 2008
New Revision: 27070

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27070
Log:
wrap generated (build-)dependency fields. Thanks to Gregor Herrmann

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=27070&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Sat Nov 22 13:05:10 2008
@@ -8,6 +8,7 @@
   * replace parsing of 'apt-file search' output with parsing the Contents
     files in /var/cache/apt/apt-file and cache the result.
     Closes: #506075 -- optimize apt-file invocations
+  * wrap generated (build-)dependency fields. Thanks to Gregor Herrmann
 
  -- gregor herrmann <gregoa at debian.org>  Wed, 19 Nov 2008 18:52:03 +0100
 

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=27070&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Sat Nov 22 13:05:10 2008
@@ -1063,8 +1063,10 @@
 	$fh->print("Source: $srcname\n");
 	$fh->print("Section: $section\n");
 	$fh->print("Priority: $priority\n");
-	$fh->print("Build-Depends: $bdepends\n") if $bdepends;
-	$fh->print("Build-Depends-Indep: $bdependsi\n") if $bdependsi;
+        local $Text::Wrap::break = ', ';
+        local $Text::Wrap::separator = ",\n";
+	$fh->print(wrap('', ' ', "Build-Depends: $bdepends\n")) if $bdepends;
+	$fh->print(wrap('', ' ', "Build-Depends-Indep: $bdependsi\n")) if $bdependsi;
 	$fh->print($extrasfields) if defined $extrasfields;
         if( $opts{'pkg-perl'} )
         {
@@ -1084,7 +1086,7 @@
 	$fh->print("\n");
 	$fh->print("Package: $pkgname\n");
 	$fh->print("Architecture: $arch\n");
-	$fh->print("Depends: $depends\n") if $depends;
+	$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");
 	$fh->close;