6 die 'Wrong module version' if $PLP::VERSION ne '3.06';
11 $PLP::sentheaders = 0;
15 delete @ENV{ grep /^PLP_/, keys %ENV };
27 PLP::Functions->import();
28 # No lexicals may exist at this point.
29 eval qq{ package PLP::Script; $PLP::code; };
30 PLP::error($@, 1) if $@ and $@ !~ /\cS\cT\cO\cP/;
31 eval { package PLP::Script; $_->() for reverse @PLP::END };
32 PLP::error($@, 1) if $@ and $@ !~ /\cS\cT\cO\cP/;
34 PLP::sendheaders() unless $PLP::sentheaders;
36 undef *{"PLP::Script::$_"} for keys %PLP::Script::;