From fab5647c48cce8a46692e8ee0b21b1d3ba04e9f7 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 23 Oct 2010 00:05:21 +0200
Subject: [PATCH] and make eval for usemap work

---
 server.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/server.pl b/server.pl
index b19f1e4..7ad6c7d 100755
--- a/server.pl
+++ b/server.pl
@@ -171,7 +171,7 @@ print "render ", dump($this);
 
 my $from = 'COBISS';
 
-my $usemap = eval "${from}::usemap;";
+my $usemap = eval '$' . $from . '::usemap';
 die $@ if $@;
 warn "# $from usermap ",dump($usemap);
 
-- 
2.20.1