X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/3565beca174066a12d2d952d4b24d79a0ca55412..756d5de12d15296e7689a7c5c7b5e35bd0bccb0e:/plp.cgi diff --git a/plp.cgi b/plp.cgi index a3c427b..e9961f6 100755 --- a/plp.cgi +++ b/plp.cgi @@ -1,22 +1,19 @@ #!/usr/local/bin/perl use v5.6.0; use PLP; +use strict; -die 'Wrong module version' if $PLP::VERSION ne '3.03'; - -use vars qw($DEBUG); +die 'Wrong module version' if $PLP::VERSION ne '3.04'; -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(); {