From 3ef8742c2e330e42f6f47a5d68a3a7c01b6a15eb Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 14 May 2001 20:43:43 +0000
Subject: [PATCH] fixed the eval in DXDb::load a bit better

---
 perl/DXDb.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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;
 	}
 }
 
-- 
2.34.1