X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=eaf880392c26e880198220c5fd7437ec53d3ea47;hb=3f1c5ab45aa13e99da6bea0bfcc6d4434beb5871;hp=49745722ffd29ae51badd4e665a9f192853a8d00;hpb=2c3a20bdcef84e620b0c3c2d306a71ebe17956b0;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;
 
 #