• R/O
  • SSH
  • HTTPS

slashdotjp: Commit


Commit MetaInfo

Révision1085 (tree)
l'heure2009-03-27 12:12:42
Auteurtach

Message de Log

fix vim color

Change Summary

Modification

--- slashjp/trunk/Slash/Apache/User/User.pm (revision 1084)
+++ slashjp/trunk/Slash/Apache/User/User.pm (revision 1085)
@@ -590,7 +590,7 @@
590590 return OK;
591591 }
592592
593- if ($uri =~ m[^/help (?: /([^?]*) | /? ) $]x) {
593+ if ($uri =~ m!^/help (?: /([^?]*) | /? ) $!x) {
594594 $r->args("op=displayhelp");
595595 $r->uri('/help.pl');
596596 $r->filename($constants->{basedir} . '/help.pl');
@@ -661,9 +661,9 @@
661661 }
662662
663663 # for self-references (/~/ and /my/)
664- if (($saveuri =~ m[^/(?:%7[eE]|~)] && $uri =~ m[^/~ (?: /(.*) | /? ) $]x)
664+ if (($saveuri =~ m!^/(?:%7[eE]|~)! && $uri =~ m!^/~ (?: /(.*) | /? ) $!x)
665665 # /my/ or /my can match, but not /mything
666- || $uri =~ m[^/my (?: /(.*) | /? ) $]x
666+ || $uri =~ m!^/my (?: /(.*) | /? ) $!x
667667 ) {
668668 my($string, $query) = ($1, '');
669669 if ($string =~ s/\?(.+)$//) {
@@ -804,7 +804,7 @@
804804
805805 return OK;
806806
807- } elsif ($uri =~ m[^/bookmarks (?: /(.*) | /? ) $]x) {
807+ } elsif ($uri =~ m!^/bookmarks (?: /(.*) | /? ) $!x) {
808808 $r->args('op=showbookmarks');
809809 $r->uri('/bookmark.pl');
810810 $r->filename($constants->{basedir} . '/bookmark.pl');
@@ -815,7 +815,7 @@
815815 # returning it, we have to re-encode it with fixparam(). that
816816 # will change if somehow Apache/mod_perl no longer decodes before
817817 # returning the data. -- pudge
818- if (($saveuri =~ m[^/(?:%7[eE]|~)(.+)]) || ($saveuri =~ m[^/(?:%5[eE]|\^)(.+)])) {
818+ if (($saveuri =~ m!^/(?:%7[eE]|~)(.+)!) || ($saveuri =~ m!^/(?:%5[eE]|\^)(.+)!)) {
819819 my($string, $query) = ($1, '');
820820 if ($string =~ s/\?(.+)$//) {
821821 $query = $1;
Afficher sur ancien navigateur de dépôt.