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