r27361 - /trunk/dh-make-perl/dh-make-perl

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Thu Nov 27 21:55:58 2008
New Revision: 27361

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27361
Log:
remove trailing slash before converting slashes to underscore in order to avoid double underlines in the regexp patterns which then never match

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=27361&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Thu Nov 27 21:55:58 2008
@@ -187,7 +187,8 @@
 
         $dir ||= '';    # deb http://there sid main
 
-        s{/}{_}g for( $host, $dir, $dist );
+        s{/$}{} for( $host, $dir, $dist );  # remove trailing /
+        s{/}{_}g for( $host, $dir, $dist ); # replace remaining /
 
         push @re, qr,${host}_${dir}_dists_${dist}_,;
     }