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