From 972d413021a3b834599c46ea8a05ae4c0e023029 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@cpan.org>
Date: Sat, 18 May 2002 16:18:29 +0000
Subject: [PATCH] v3.11 release

---
 Changes       | 4 ++++
 PLP.pm        | 4 ++--
 PLP/Fields.pm | 6 +-----
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/Changes b/Changes
index f19c9f2..a5c9b5d 100644
--- 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 2df9c3b..0d30184 100644
--- 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 7b563cb..14d30b6 100644
--- 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;
-- 
2.30.0