v3.12 release

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

diff --git a/PLP.pm b/PLP.pm
index 12abc1f9b7a4619229e6cac4a9be759db27ee514..ab50f559a909fa4219c0ca3af78ed6fc6bc55a8a 100644 (file)
--- a/PLP.pm
+++ b/PLP.pm
@@ -8,10 +8,9 @@ use PLP::Tie::Headers;
 use PLP::Tie::Delay;
 use PLP::Tie::Print;
 
-use Symbol ();
-#use strict;
+use strict;
 
-our $VERSION = '3.10';
+our $VERSION = '3.12';
 
 # subs in this package:
 #  sendheaders                      Send headers
@@ -195,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;
@@ -231,8 +230,9 @@ sub start {
     }
     PLP::sendheaders() unless $PLP::sentheaders;
     select STDOUT;
-    # undef *{"PLP::Script::$_"} for keys %PLP::Script::;
-    Symbol::delete_package('PLP::Script');
+    undef *{"PLP::Script::$_"} for keys %PLP::Script::;
+#    Symbol::delete_package('PLP::Script');
+#    The above does not work. TODO - find out why not.
 }
 
 # This is run by the CGI script.
@@ -254,7 +254,8 @@ sub handler {
        return $ret;
     }
     start();
-    return Apache::Constants::OK;
+    no strict 'subs';
+    return Apache::Constants::OK();
 }
 
 1;
@@ -325,6 +326,11 @@ for speeds comparable to those of PHP, but can also be run as a CGI script.
 For now, all documentation is on the website. Everything will be POD one day,
 but until that day, you will need to visit http://plp.juerd.nl/
 
+=head1 FAQ
+
+A lot of questions are asked often, so before asking yours, please read the 
+FAQ that is located at http://plp.juerd.nl/faq.plp
+
 =head1 NO WARRANTY
 
 No warranty, no guarantees. Use PLP at your own risk, as I disclaim all