From 7e6bbd1c2d57c1129f58d79e21943a26e931c0d3 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@cpan.org>
Date: Sat, 31 Mar 2007 01:41:43 +0200
Subject: [PATCH] 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.
---
 PLP.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/PLP.pm b/PLP.pm
index 12abc1f..2df9c3b 100644
--- a/PLP.pm
+++ b/PLP.pm
@@ -8,7 +8,6 @@ use PLP::Tie::Headers;
 use PLP::Tie::Delay;
 use PLP::Tie::Print;
 
-use Symbol ();
 #use strict;
 
 our $VERSION = '3.10';
@@ -231,8 +230,9 @@ sub start {
     }
     PLP::sendheaders() unless $PLP::sentheaders;
     select STDOUT;
-    # undef *{"PLP::Script::$_"} for keys %PLP::Script::;
-    Symbol::delete_package('PLP::Script');
+    undef *{"PLP::Script::$_"} for keys %PLP::Script::;
+#    Symbol::delete_package('PLP::Script');
+#    The above does not work. TODO - find out why not.
 }
 
 # This is run by the CGI script.
-- 
2.30.0