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