svnno****@sourc*****
svnno****@sourc*****
2009年 3月 27日 (金) 12:12:42 JST
SRADRevision: 1085
http://svn.sourceforge.jp/view?root=slashdotjp&view=rev&rev=1085
Author: tach
Date: 2009-03-27 12:12:42 +0900 (Fri, 27 Mar 2009)
Log Message:
-----------
fix vim color
Modified Paths:
--------------
slashjp/trunk/Slash/Apache/User/User.pm
-------------- next part --------------
Modified: slashjp/trunk/Slash/Apache/User/User.pm
===================================================================
--- slashjp/trunk/Slash/Apache/User/User.pm 2009-03-26 09:09:00 UTC (rev 1084)
+++ slashjp/trunk/Slash/Apache/User/User.pm 2009-03-27 03:12:42 UTC (rev 1085)
@@ -590,7 +590,7 @@
return OK;
}
- if ($uri =~ m[^/help (?: /([^?]*) | /? ) $]x) {
+ if ($uri =~ m!^/help (?: /([^?]*) | /? ) $!x) {
$r->args("op=displayhelp");
$r->uri('/help.pl');
$r->filename($constants->{basedir} . '/help.pl');
@@ -661,9 +661,9 @@
}
# for self-references (/~/ and /my/)
- if (($saveuri =~ m[^/(?:%7[eE]|~)] && $uri =~ m[^/~ (?: /(.*) | /? ) $]x)
+ if (($saveuri =~ m!^/(?:%7[eE]|~)! && $uri =~ m!^/~ (?: /(.*) | /? ) $!x)
# /my/ or /my can match, but not /mything
- || $uri =~ m[^/my (?: /(.*) | /? ) $]x
+ || $uri =~ m!^/my (?: /(.*) | /? ) $!x
) {
my($string, $query) = ($1, '');
if ($string =~ s/\?(.+)$//) {
@@ -804,7 +804,7 @@
return OK;
- } elsif ($uri =~ m[^/bookmarks (?: /(.*) | /? ) $]x) {
+ } elsif ($uri =~ m!^/bookmarks (?: /(.*) | /? ) $!x) {
$r->args('op=showbookmarks');
$r->uri('/bookmark.pl');
$r->filename($constants->{basedir} . '/bookmark.pl');
@@ -815,7 +815,7 @@
# returning it, we have to re-encode it with fixparam(). that
# will change if somehow Apache/mod_perl no longer decodes before
# returning the data. -- pudge
- if (($saveuri =~ m[^/(?:%7[eE]|~)(.+)]) || ($saveuri =~ m[^/(?:%5[eE]|\^)(.+)])) {
+ if (($saveuri =~ m!^/(?:%7[eE]|~)(.+)!) || ($saveuri =~ m!^/(?:%5[eE]|\^)(.+)!)) {
my($string, $query) = ($1, '');
if ($string =~ s/\?(.+)$//) {
$query = $1;