--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index cbb76d9eb17e033b8ad04dfd0b9f0b27c30e7204..3587669cce8daa7ed217324d6e21d03753d0f668 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -80,7 +80,7 @@ sub Triple::main {
             print $fh "\r\n";
             close $fh;
 
-            %post = parse_post($body);
+            my %post = parse_post($body);
 
             $status   = '302 Found';
             $location = $vars->{"uri"};