git.shiar.nl
/
perl
/
plp
/
.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
972d413
)
fixed strict-violation in PLP.pm that happened only without mod_perl
author
Juerd Waalboer
<juerd@cpan.org>
Fri, 30 Mar 2007 23:46:25 +0000
(
01:46
+0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Fri, 30 Mar 2007 23:46:25 +0000
(
01:46
+0200)
PLP.pm
patch
|
blob
|
history
diff --git
a/PLP.pm
b/PLP.pm
index 0d301846580e3c56364c2f69c5c503afec335534..3e5baf5f68fd76791d2bb82934c395c47fa7158b 100644
(file)
--- a/
PLP.pm
+++ b/
PLP.pm
@@
-194,10
+194,10
@@
sub mod_perl_init {
$ENV{PLP_FILENAME} = my $filename = $r->filename;
unless (-f $filename) {
- return Apache::Constants::NOT_FOUND;
+ return Apache::Constants::NOT_FOUND
()
;
}
unless (-r _) {
- return Apache::Constants::FORBIDDEN;
+ return Apache::Constants::FORBIDDEN
()
;
}
(my $dir) = $filename =~ m!(.*)/!s;
@@
-254,7
+254,8
@@
sub handler {
return $ret;
}
start();
- return Apache::Constants::OK;
+ no strict 'subs';
+ return Apache::Constants::OK();
}
1;