From: 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.net/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; } }