v3.11 release

diff --git a/Changes b/Changes
index f19c9f2748dec2d96c7bf0ca604a260818a92db7..a5c9b5d17dc17c49ff5410700417a74d58252788 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,7 @@
+3.11 - May 18, 2002
+- Fixed all tie-stuff by reverting a change. Symbol.pm's delete_package doesn't
+  delete a package in the way I thought it did.
+
 3.10 - May 18, 2002
 - First standardized module distribution, to allow easy distribution via CPAN
 - Caution: installation procedure has changed because of that!

diff --git a/PLP.pm b/PLP.pm
index 2df9c3bbc4da114c290ca5357b8f46df3da2bf54..0d301846580e3c56364c2f69c5c503afec335534 100644 (file)
--- a/PLP.pm
+++ b/PLP.pm
@@ -8,9 +8,9 @@ use PLP::Tie::Headers;
 use PLP::Tie::Delay;
 use PLP::Tie::Print;
 
-#use strict;
+use strict;
 
-our $VERSION = '3.10';
+our $VERSION = '3.11';
 
 # subs in this package:
 #  sendheaders                      Send headers

diff --git a/PLP/Fields.pm b/PLP/Fields.pm
index 7b563cbf023d453abdf8adc0fb8b3396a6456cd0..14d30b65b83028156ec4d440dd08d7daaa618179 100644 (file)
--- a/PLP/Fields.pm
+++ b/PLP/Fields.pm
@@ -18,11 +18,7 @@ sub doit {
     tie %PLP::Script::get, 'PLP::Tie::Delay', 'PLP::Script::get', sub {
        my %get;
        my $get;
-       if ($ENV{MOD_PERL}) {
-           $get = Apache->request->args;
-       } else {
-           $get = $ENV{QUERY_STRING}
-       }
+       $get = $ENV{QUERY_STRING};
        if ($get ne ''){
            for (split /[&;]/, $get) {
                my @keyval = split /=/, $_, 2;