X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXDb.pm;h=f54d6f14ff02b882fbefdd26cf21bbcab0fa1f4b;hb=d384410d4d5d1031cabab44350b80f2a55fe808d;hp=b7a886716df0181f76f4fe694179cde9340afee8;hpb=8178d787d7cc8040fa8958197582bba5c80e6f59;p=spider.git

diff --git a/perl/DXDb.pm b/perl/DXDb.pm
index b7a88671..f54d6f14 100644
--- a/perl/DXDb.pm
+++ b/perl/DXDb.pm
@@ -194,6 +194,7 @@ sub new
 	$avail{$self->{name}} = $self;
 	mkdir $dbbase, 02775 unless -e $dbbase;
 	save();
+	return $self;
 }
 
 # delete a database
@@ -348,7 +349,6 @@ sub field_prompt
 #no strict;
 sub AUTOLOAD
 {
-	my $self = shift;
 	no strict;
 	my $name = $AUTOLOAD;
 	return if $name =~ /::DESTROY$/;
@@ -358,9 +358,7 @@ sub AUTOLOAD
 	# this clever line of code creates a subroutine which takes over from autoload
 	# from OO Perl - Conway
 	*$AUTOLOAD = sub {@_ > 1 ? $_[0]->{$name} = $_[1] : $_[0]->{$name}};
-	&$AUTOLOAD($self, @_);
-#	*{$AUTOLOAD} = sub {@_ > 1 ? $_[0]->{$name} = $_[1] : $_[0]->{$name}} ;
-#	@_ ? $self->{$name} = shift : $self->{$name} ;
+        goto &$AUTOLOAD;
 }
 
 1;