fix vim color
@@ -590,7 +590,7 @@ | ||
590 | 590 | return OK; |
591 | 591 | } |
592 | 592 | |
593 | - if ($uri =~ m[^/help (?: /([^?]*) | /? ) $]x) { | |
593 | + if ($uri =~ m!^/help (?: /([^?]*) | /? ) $!x) { | |
594 | 594 | $r->args("op=displayhelp"); |
595 | 595 | $r->uri('/help.pl'); |
596 | 596 | $r->filename($constants->{basedir} . '/help.pl'); |
@@ -661,9 +661,9 @@ | ||
661 | 661 | } |
662 | 662 | |
663 | 663 | # for self-references (/~/ and /my/) |
664 | - if (($saveuri =~ m[^/(?:%7[eE]|~)] && $uri =~ m[^/~ (?: /(.*) | /? ) $]x) | |
664 | + if (($saveuri =~ m!^/(?:%7[eE]|~)! && $uri =~ m!^/~ (?: /(.*) | /? ) $!x) | |
665 | 665 | # /my/ or /my can match, but not /mything |
666 | - || $uri =~ m[^/my (?: /(.*) | /? ) $]x | |
666 | + || $uri =~ m!^/my (?: /(.*) | /? ) $!x | |
667 | 667 | ) { |
668 | 668 | my($string, $query) = ($1, ''); |
669 | 669 | if ($string =~ s/\?(.+)$//) { |
@@ -804,7 +804,7 @@ | ||
804 | 804 | |
805 | 805 | return OK; |
806 | 806 | |
807 | - } elsif ($uri =~ m[^/bookmarks (?: /(.*) | /? ) $]x) { | |
807 | + } elsif ($uri =~ m!^/bookmarks (?: /(.*) | /? ) $!x) { | |
808 | 808 | $r->args('op=showbookmarks'); |
809 | 809 | $r->uri('/bookmark.pl'); |
810 | 810 | $r->filename($constants->{basedir} . '/bookmark.pl'); |
@@ -815,7 +815,7 @@ | ||
815 | 815 | # returning it, we have to re-encode it with fixparam(). that |
816 | 816 | # will change if somehow Apache/mod_perl no longer decodes before |
817 | 817 | # returning the data. -- pudge |
818 | - if (($saveuri =~ m[^/(?:%7[eE]|~)(.+)]) || ($saveuri =~ m[^/(?:%5[eE]|\^)(.+)])) { | |
818 | + if (($saveuri =~ m!^/(?:%7[eE]|~)(.+)!) || ($saveuri =~ m!^/(?:%5[eE]|\^)(.+)!)) { | |
819 | 819 | my($string, $query) = ($1, ''); |
820 | 820 | if ($string =~ s/\?(.+)$//) { |
821 | 821 | $query = $1; |