X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FUSDB.pm;h=478763efb534bb511a4e38c5bf056fa9cccc1c59;hb=c94ff1bf2cbe16ed59c5b273c7f6730fd7314cab;hp=042e9190f4538ac64e26b3171904c309a220986d;hpb=68fa2f8ae34d78464cb196851a7ce09ebef61b1b;p=spider.git

diff --git a/perl/USDB.pm b/perl/USDB.pm
index 042e9190..478763ef 100644
--- a/perl/USDB.pm
+++ b/perl/USDB.pm
@@ -13,11 +13,14 @@ use DXVars;
 use DB_File;
 use File::Copy;
 use DXDebug;
+use DXUtil;
+
 #use Compress::Zlib;
 
 use vars qw(%db $present $dbfn);
 
-$dbfn = "$main::data/usdb.v1";
+localdata_mv("usdb.v1");
+$dbfn = localdata("usdb.v1");
 
 sub init
 {