--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 29b683c694ab7f8d0756adfb7b5aa0c604db910f..72507d49917aaa4b1f0bcade66c59e080576c645 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -51,9 +51,9 @@ sub Triple::main {
 
         my $page = %static{$vars->{uri}};
         if (not $page) {
-            my @set = $page{$vars->{uri}};
-            if (@set) {
-                @set = @{@set};
+            my $dynamic = $page{$vars->{uri}};
+            if ($dynamic) {
+                @set = @{$dynamic};
                 $page = "dynamic, no?";
             } else {
                 $page = %static{''};