r27366 - /trunk/dh-make-perl/dh-make-perl

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Fri Nov 28 07:24:02 UTC 2008


Author: dmn
Date: Fri Nov 28 07:24:00 2008
New Revision: 27366

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27366
Log:
avoid double-underscores when source line has no directory

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

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=27366&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Fri Nov 28 07:24:00 2008
@@ -176,7 +176,7 @@
         s{/$}{} for( $host, $dir, $dist );  # remove trailing /
         s{/}{_}g for( $host, $dir, $dist ); # replace remaining /
 
-    return "${host}_${dir}_dists_${dist}";
+    return join( "_", $host, $dir||(), "dists", $dist );
 }
 
 sub get_contents_filename_filters




More information about the Pkg-perl-cvs-commits mailing list