$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;
return $ret;
}
start();
- return Apache::Constants::OK;
+ no strict 'subs';
+ return Apache::Constants::OK();
}
1;