fixed strict-violation in PLP.pm that happened only without mod_perl

[perl/plp/.git] / PLP.pm

diff --git a/PLP.pm b/PLP.pm
index 2df9c3bbc4da114c290ca5357b8f46df3da2bf54..3e5baf5f68fd76791d2bb82934c395c47fa7158b 100644 (file)
--- a/PLP.pm
+++ b/PLP.pm
@@ -8,9 +8,9 @@ use PLP::Tie::Headers;
 use PLP::Tie::Delay;
 use PLP::Tie::Print;
 
-#use strict;
+use strict;
 
-our $VERSION = '3.10';
+our $VERSION = '3.11';
 
 # subs in this package:
 #  sendheaders                      Send headers
@@ -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;