[Lxr-commits] CVS: lxr/lib/LXR Common.pm,1.32,1.33

[Per K. G. <pe...@us...>]

Update of /cvsroot/lxr/lxr/lib/LXR
In directory usw-pr-cvs1:/tmp/cvs-serv20906/lib/LXR

Modified Files:
	Common.pm 
Log Message:
Clean up after httpinit


Index: Common.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Common.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- Common.pm	2001/09/27 16:12:20	1.32
+++ Common.pm	2001/10/16 20:38:37	1.33
@@ -38,7 +38,8 @@
 				 &warning &fatal &abortall &fflush &urlargs &fileref
 				 &idref &incref &htmlquote &freetextmarkup &markupfile
 				 &markupstring &httpinit &makeheader &makefooter
-				 &expandtemplate);
+				 &expandtemplate &httpclean);
+
 %EXPORT_TAGS = ('html' => [ @EXPORT_OK ]);
 
 
@@ -534,6 +535,12 @@
 	$pathname = fixpaths($HTTP->{'path_info'} || $HTTP->{'param'}->{'file'});
 
 	printhttp;
+}
+
+sub httpclean {
+	$config = undef;
+	$files = undef;
+	$index = undef;
 }