[Bast-commits] r6044 - ironman/plagger/lib/Plagger/Plugin/Publish

[penfold at dev.catalyst.perl.org]

Author: penfold
Date: 2009-04-30 13:42:50 +0100 (Thu, 30 Apr 2009)
New Revision: 6044

Modified:
   ironman/plagger/lib/Plagger/Plugin/Publish/PagedPlanet.pm
Log:
deref arrayref, you fool

Modified: ironman/plagger/lib/Plagger/Plugin/Publish/PagedPlanet.pm
===================================================================
--- ironman/plagger/lib/Plagger/Plugin/Publish/PagedPlanet.pm	2009-04-30 12:31:55 UTC (rev 6043)
+++ ironman/plagger/lib/Plagger/Plugin/Publish/PagedPlanet.pm	2009-04-30 12:42:50 UTC (rev 6044)
@@ -31,7 +31,7 @@
 
     my $start = 0;
     my $page = 1;
-    while ($start < scalar @entries) {
+    while ($start < scalar @$entries) {
         my $end = $start + $pagesize - 1;
         my @entries = @{$entries->[$start..$end]};
         my $filename = ($page == 1) ? 'index.html' : "index_$page.html";