From 4d9f7e9f54cf325d1a6e7e60f9bf2e6c6deffdde Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sat, 23 Oct 2010 00:09:02 +0200 Subject: [PATCH] give render module to pull usemap from --- server.pl | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/server.pl b/server.pl index 7ad6c7d..7cc545f 100755 --- a/server.pl +++ b/server.pl @@ -165,12 +165,10 @@ use Data::Dump qw(dump); use COBISS; sub render { - my $this = shift; + my ($this,$from) = @_; print "render ", dump($this); -my $from = 'COBISS'; - my $usemap = eval '$' . $from . '::usemap'; die $@ if $@; warn "# $from usermap ",dump($usemap); -- 2.20.1