v3.04 release

[perl/plp/.git] / plp.cgi

diff --git a/plp.cgi b/plp.cgi
index a3c427b69379a8e4f53a35350623f84c3e9113b1..e9961f6511ef4d7669b3abce5b77a3967ce048c4 100755 (executable)
--- 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();
 
 {