perl/modules/W3C/LinkChecker/bin checklink,4.60,4.61

Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv7618

Modified Files:
	checklink 
Log Message:
Protect regexp metacharacters in masquerade URLs.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.60
retrieving revision 4.61
diff -u -d -r4.60 -r4.61
--- checklink	29 Jul 2007 16:51:00 -0000	4.60
+++ checklink	29 Jul 2007 18:56:18 -0000	4.61
@@ -831,12 +831,12 @@
       if (!defined($abs_link_uri) && $link_uri->scheme() =~ /^sips?$/);
 
     if ($Opts{Masquerade}) {
-      if ($abs_link_uri =~ m|^$Opts{Masquerade_From}|) {
+      if ($abs_link_uri =~ m|^\Q$Opts{Masquerade_From}\E|) {
         printf("processing %s in base %s\n",
                $abs_link_uri, $Opts{Masquerade_To});
         my $nlink = $abs_link_uri;
         $nlink =~
-          s|^$Opts{Masquerade_From}|$Opts{Masquerade_To}|;
+          s|^\Q$Opts{Masquerade_From}\E|$Opts{Masquerade_To}|;
         $abs_link_uri = URI->new($nlink);
       };
     }