From 956a50913196bbb7bb8db7d53ccd07c198cac5bc Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@cpan.org>
Date: Sat, 31 Mar 2007 01:46:25 +0200
Subject: [PATCH] fixed strict-violation in PLP.pm that happened only without
 mod_perl

---
 PLP.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/PLP.pm b/PLP.pm
index 0d30184..3e5baf5 100644
--- 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;
-- 
2.30.0