r39386 - /trunk/dh-make-perl/lib/Debian/AptContents.pm
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sun Jul 5 19:43:36 UTC 2009
Author: gregoa
Date: Sun Jul 5 19:43:20 2009
New Revision: 39386
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39386
Log:
white space change for consistency
Modified:
trunk/dh-make-perl/lib/Debian/AptContents.pm
Modified: trunk/dh-make-perl/lib/Debian/AptContents.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/Debian/AptContents.pm?rev=39386&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/AptContents.pm (original)
+++ trunk/dh-make-perl/lib/Debian/AptContents.pm Sun Jul 5 19:43:20 2009
@@ -152,7 +152,7 @@
^
(?:([^:/?\#]+):)? # proto
(?://
- ([^:/?\#]*) # host
+ ([^:/?\#]*) # host
(?::(\d+))? # port
)?
([^?\#]*) # path
@@ -177,7 +177,7 @@
$dir ||= ''; # deb http://there sid main
s{/$}{} for( $host, $dir, $dist ); # remove trailing /
- s{^/}{} for( $host, $dir, $dist ); # remove initial /
+ s{^/}{} for( $host, $dir, $dist ); # remove initial /
s{/}{_}g for( $host, $dir, $dist ); # replace remaining /
return ( $host . "_" . join( "_", $dir||(), "dists", $dist ) );
More information about the Pkg-perl-cvs-commits
mailing list