--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 8d4b86ec69df9957ad73639ef6d1d3707bcc6723..39bbbf5f128cb1c2a163dda45beeae9d38276c8e 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -54,6 +54,7 @@ sub Triple::main {
         my $content_length = $ENV{'CONTENT_LENGTH'} || 0;
         my $content_type   = $ENV{'CONTENT_TYPE'} || '';
         my $status         = '';
+        my $location;
 
         my $body = '';
         if ($method eq 'POST') {