From ae825cd67e4b21efe93c8f6fee56e038a9dba61c Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Thu, 16 Oct 2003 06:04:30 +0000
Subject: untie everything

git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@1249 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 staticweb/man.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'staticweb')

diff --git a/staticweb/man.pl b/staticweb/man.pl
index 274797af..8ade7d6c 100755
--- a/staticweb/man.pl
+++ b/staticweb/man.pl
@@ -6,11 +6,9 @@ use LocalVars;
 use DB_File;
 use strict;
 use Data::Dumper;
-use Date::Calc qw(:all);
 use Template;
 use OurNet::FuzzyIndex;
 use Data::Serializer;
-use Encode;
 use Time::HiRes qw/gettimeofday tv_interval/;
 use b2g;
 use POSIX;
@@ -61,6 +59,7 @@ sub main
 	$rh->{charset} = 'big5';
     }
     $tmpl->process($rh->{tmpl}, $rh);
+    untie %db;
 }
 
 sub dirmode
@@ -125,6 +124,7 @@ sub search($)
     $th{elapsed} = tv_interval($t0);
     $th{key} = $key;
     $th{tmpl} = 'search.html';
+    undef $idx;
     return \%th;
 }
 
-- 
cgit v1.2.3