X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=eaf880392c26e880198220c5fd7437ec53d3ea47;hb=75bf122b6d6d233a83a19be9842b21d546519023;hp=49745722ffd29ae51badd4e665a9f192853a8d00;hpb=91cb091ed723c5650202345ae9c4f0277e36f0a8;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 49745722..eaf88039 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -8,9 +8,6 @@
 
 package DXUser;
 
-require Exporter;
-@ISA = qw(Exporter);
-
 use DXLog;
 use DB_File;
 use Data::Dumper;
@@ -104,6 +101,15 @@ sub init
 	$filename = $fn;
 }
 
+sub del_file
+{
+	my ($pkg, $fn, $mode) = @_;
+  
+	confess "need a filename in User" if !$fn;
+	$fn .= ".v2";
+	unlink $fn;
+}
+
 use strict;
 
 #