--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 8824ed992d5abdd316bfabfde91f5644c8b5fda4..6bb0d06ef66031d4d6b6bed804d2e4d5f0616bda 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -48,8 +48,8 @@ sub Triple::main {
 
     while($request->Accept() >= 0) {
 
-        vars->{"ip"}  = $ENV{'REMOTE_ADDR'} || '?',
-        vars->{"uri"} = $ENV{'REQUEST_URI'} // '/',
+        $vars->{"ip"}  = $ENV{'REMOTE_ADDR'} || '?',
+        $vars->{"uri"} = $ENV{'REQUEST_URI'} // '/',
 
         my $cgi = CGI->new;