--- adzap/scripts/squid_redirect 2006-01-14 03:33:17.000000000 +0100 +++ /usr/local/sbin/squid_redirect 2006-01-28 13:33:36.000000000 +0100 @@ -311,7 +311,7 @@ sub mkzapcode($) { my($STREAM)=@_; - my $code = " if (0) {}\n"; + my $code = " y|/||s; if (0) {}\n"; my $ncode; my $lastclass; @@ -414,7 +414,7 @@ sub ptn2re($) { local($_)=@_; s|[.\@\%\$?+]|\\$&|g; # quote specials - s|/+|/+|g; # turn slashes into "/+" + y|/||s; # turn slashes into "/+" s:(\\.|[^*\\]|\*+):subptn2re($&):eg; return $_; }