--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index bb473cda20243c7737acf531b31794dfc29ed608..9d0f26540924891083c70b60b67b56e944e7c367 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -76,7 +76,7 @@ sub init {
             banana => 'sand',
         };
         foreach my $key (keys %page) {
-            @set = $page{$key};
+            my @set = $page{$key};
             print Dumper @set;
         # foreach (my ($path, @set) = each %page) {
             # if ($datum[0] == DYNAMIC_PAGE) {