From 3ef8742c2e330e42f6f47a5d68a3a7c01b6a15eb Mon Sep 17 00:00:00 2001 From: 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.43.0