X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDb.pm;h=0f30e5b05b423d31d698c0700b4c21353525e39f;hb=e39b738850b9a122b60b179e9723e546ddacfd62;hp=25e7c0827d3f0d2d0d7fd7f30d32c59ab60640ca;hpb=d7338541ed3f380b0d10e0676bb5d64e6e5e4d7a;p=spider.git

diff --git a/perl/DXDb.pm b/perl/DXDb.pm
index 25e7c082..0f30e5b0 100644
--- a/perl/DXDb.pm
+++ b/perl/DXDb.pm
@@ -12,8 +12,7 @@ use DXVars;
 use DXLog;
 use DXUtil;
 use DB_File;
-
-use Carp;
+use DXDebug;
 
 use vars qw($opentime $dbbase %avail %valid $lastprocesstime $nextstream %stream);
 
@@ -348,6 +347,9 @@ sub AUTOLOAD
 	$name =~ s/.*:://o;
   
 	confess "Non-existant field '$AUTOLOAD'" if !$valid{$name};
+	# 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}} ;
 	@_ ? $self->{$name} = shift : $self->{$name} ;
 }