Index: lib/Locale/Po4a/Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.29
diff -a -u -r1.29 Po.pm
--- lib/Locale/Po4a/Po.pm	5 Nov 2004 20:33:51 -0000	1.29
+++ lib/Locale/Po4a/Po.pm	24 Nov 2004 22:30:19 -0000
@@ -1057,7 +1057,7 @@
     my @lines=split(/\n/,"$text");
     my $res="";
     my $first=1;
-    while (my $line=shift @lines) {
+    while (defined(my $line=shift @lines)) {
 	if ($first && length($line) > $col - 10) {
 	    unshift @lines,$line;
 	    $first=0;