fixed sh/node

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 49745722ffd29ae51badd4e665a9f192853a8d00..eaf880392c26e880198220c5fd7437ec53d3ea47 100644 (file)
--- 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;
 
 #