untie everything

git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@1249 63ad8ddf-47c3-0310-b6dd-a9e9d9715204

1 files changed, 2 insertions, 2 deletions

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;
 }