From: minima <minima>
Date: Mon, 14 May 2001 20:43:43 +0000 (+0000)
Subject: fixed the eval in DXDb::load a bit better
X-Git-Tag: OLDROUTE_1_48~16
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=3ef8742c2e330e42f6f47a5d68a3a7c01b6a15eb;p=spider.git

fixed the eval in DXDb::load a bit better
---

diff --git a/perl/DXDb.pm b/perl/DXDb.pm
index 50148ee2..6ccb9105 100644
--- a/perl/DXDb.pm
+++ b/perl/DXDb.pm
@@ -76,9 +76,10 @@ sub load
 {
 	my $s = readfilestr($dbbase, "dbs", "pl");
 	if ($s) {
-		my $a = eval $s;
+		my $a;
+		eval "\$a = $s";
 		confess $@ if $@;
-		%avail = %{$a} if $a
+		%avail = ( %$a ) if ref $a;
 	}
 }