projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
well on the way to having a working cluster database
[spider.git]
/
perl
/
DXUser.pm
diff --git
a/perl/DXUser.pm
b/perl/DXUser.pm
index cdbc0b23c81c542ea3dd79b698ba8bf7b79ec074..7ff5b2260d60ad7983ec0d859da1ea933323f958 100644
(file)
--- a/
perl/DXUser.pm
+++ b/
perl/DXUser.pm
@@
-13,6
+13,7
@@
require Exporter;
use MLDBM qw(DB_File);
use Fcntl;
use MLDBM qw(DB_File);
use Fcntl;
+use Carp;
%u = undef;
$dbm = undef;
%u = undef;
$dbm = undef;
@@
-50,7
+51,7
@@
sub AUTOLOAD
return if $name =~ /::DESTROY$/;
$name =~ s/.*:://o;
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();
if (@_) {
$self->{$name} = shift;
$self->put();