svn commit: r1142833 - /incubator/ooo/site/trunk/lib/view.pm

[jo...@apache.org]

Author: joes
Date: Mon Jul  4 22:33:44 2011
New Revision: 1142833

URL: http://svn.apache.org/viewvc?rev=1142833&view=rev
Log:
evade warning at eof

Modified:
    incubator/ooo/site/trunk/lib/view.pm

Modified: incubator/ooo/site/trunk/lib/view.pm
URL: http://svn.apache.org/viewvc/incubator/ooo/site/trunk/lib/view.pm?rev=1142833&r1=1142832&r2=1142833&view=diff
==============================================================================
--- incubator/ooo/site/trunk/lib/view.pm (original)
+++ incubator/ooo/site/trunk/lib/view.pm Mon Jul  4 22:33:44 2011
@@ -199,7 +199,7 @@ sub sort_tables {
         }
         my @rows;
         push @rows, [split /\s*\|\s*/, shift(@orig), -1]
-            while $orig[0] =~ /^\|/;
+            while @orig and $orig[0] =~ /^\|/;
         shift @$_, pop @$_ for @rows; # dump empty entries at ends
         @rows = sort { $a->[$col] cmp $b->[$col] } @rows;
         @rows = reverse @rows if $direction == -1;