--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 2a21f5679a2a7d2a1e2a7e76d8d83931ad7b435f..4491ddb81bef5fe1f1cfc029f9c2093777cba912 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -51,8 +51,12 @@ sub Triple::main {
 
         my $page = %static{$vars->{uri}};
         if (not $page) {
-
-            $page = %static{''};
+            my @set = @{$page{$vars->{uri}}};
+            if (@set) {
+                $page = "dynamic, no?";
+            } else {
+                $page = %static{''};
+            }
         }
         print $page;
     }