[svn:parrot] r19042 - trunk/lib/Text

[chromatic]

Author: chromatic
Date: Sat Jun 16 13:08:32 2007
New Revision: 19042

Modified:
   trunk/lib/Text/Balanced.pm

Log:
[lib] Cleaned up a few uninitialized value warnings in the smartlinks test.

Modified: trunk/lib/Text/Balanced.pm
==============================================================================
--- trunk/lib/Text/Balanced.pm  (original)
+++ trunk/lib/Text/Balanced.pm  Sat Jun 16 13:08:32 2007
@@ -896,7 +896,7 @@
                         }
                 }
 
-                FIELD: while (pos($$textref) < length($$textref))
+                FIELD: while ((defined(pos($$textref)) || 0) < length 
$$textref)
                 {
                         my $field;
                         my @bits;