#!/usr/local/bin/perl
use v5.6.0;
use PLP;
+use strict;
-die 'Wrong module version' if $PLP::VERSION ne '3.02';
-
-use vars qw($DEBUG);
+die 'Wrong module version' if $PLP::VERSION ne '3.05';
-use strict;
{
$PLP::code = '';
$PLP::sentheaders = 0;
$PLP::inA = 0;
$PLP::inB = 0;
+ $PLP::DEBUG = 1;
delete @ENV{ grep /^PLP_/, keys %ENV };
}
-$DEBUG = 1;
-
PLP::start();
{