The following commit has been merged in the master branch:
commit 20b380da9c1c9b3353b577524fe652e85469a24a
Author: Ryan Niebur <[email protected]>
Date: Sun Feb 12 12:48:57 2012 -0800
remove many unneeded [] in the substitution
diff --git a/scripts/dget.pl b/scripts/dget.pl
index 5536b7a..0bee2ec 100755
--- a/scripts/dget.pl
+++ b/scripts/dget.pl
@@ -320,7 +320,7 @@ sub apt_get {
# find deb lines matching the hosts in the policy output
my @repositories;
# the regexp within the map below can be removed and replaced with only
the quotemeta statement once bug #154868 is fixed
- my $host_re = '(?:' . (join '|', map { my $host = quotemeta; $host =~
s/(?<=[\\][:][\\][\/][\\][\/])([^\\:]+)(?=[\\][\/])/$1(?:[:][0-9]+\)?/g; $host;
} @hosts) . ')';
+ my $host_re = '(?:' . (join '|', map { my $host = quotemeta; $host =~
s/(?<=\\:\\\/\\\/)([^\\:]+)(?=\\\/)/$1(?::[0-9]+\)?/g; $host; } @hosts) . ')';
if (-f "/etc/apt/sources.list") {
$apt = new IO::File("/etc/apt/sources.list") or die
"/etc/apt/sources.list: $!";
while (<$apt>) {
--
Git repository for devscripts
--
To unsubscribe, send mail to [email protected].
