X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=7ff5b2260d60ad7983ec0d859da1ea933323f958;hb=21e7642d216656c60b164d76208633a0c81cf5db;hp=cdbc0b23c81c542ea3dd79b698ba8bf7b79ec074;hpb=8cc3ac88ee6ba2216a9f19761385c9869a2f91b1;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index cdbc0b23..7ff5b226 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -13,6 +13,7 @@ require Exporter;
 
 use MLDBM qw(DB_File);
 use Fcntl;
+use Carp;
 
 %u = undef;
 $dbm = undef;
@@ -50,7 +51,7 @@ sub AUTOLOAD
   return if $name =~ /::DESTROY$/;
   $name =~ s/.*:://o;
   
-  die "Non-existant field '$AUTOLOAD'" if !$valid{$name};
+  confess "Non-existant field '$AUTOLOAD'" if !$valid{$name};
   if (@_) {
     $self->{$name} = shift;
 	$self->put();