use File::Basename ();
use File::Spec;
-#use Cwd ();
use strict;
# The _init subs do the following:
# Set $PLP::code to the initial code
-# Set $ENV{PLP_*} and makes PATH_INFO if needed
+# Set $ENV{PLP_*} and make PATH_INFO if needed
# Change the CWD
# This gets referenced as the initial $PLP::ERROR
sub _default_error {
my ($plain, $html) = @_;
print qq{<table border=1 class="PLPerror"><tr><td>},
- qq{<span><b>Debug information:</b><BR>$html</td></tr></table>};
+ qq{<b>Debug information:</b><br>$html</td></tr></table>};
}
# CGI initializer: parses PATH_TRANSLATED
list context. Please note that the expression should not end a statement: avoid
semi-colons. No whitespace may be between C<< <: >> and the equal sign.
-C<< foo <:= $bar :> $baz >> is like C<< <: print 'foo ', $bar, ' baz'; :> >>.
+C<< foo <:= $bar :> $baz >> is like C<< <: print 'foo ', $bar, ' $baz'; :> >>.
=item C<< <(filename)> >>
Because the interpreter that mod_perl uses never ends, C<END { }> blocks won't
work properly. You should use C<PLP_END { };> instead. Note that this is a not
a built-in construct, so it needs proper termination with a semi-colon (as do
-<eval> and <do>).
+C<eval> and C<do>).
Under mod_perl, modules are loaded only once. A good modular design can improve
performance because of this, but you will have to B<reload> the modules