fold_grind.t: Ignore blank lines

This is in preparation for Unicode 6.1, which has blank lines in the
.txt file that fold_grind reads.  The line that strips off comments did
not work on plain null lines.

diff --git a/t/re/fold_grind.t b/t/re/fold_grind.t
index b8a1acb..98fc396 100644 (file)
--- a/t/re/fold_grind.t
+++ b/t/re/fold_grind.t
@@ -246,8 +246,9 @@ while (<$fh>) {
     # Lines look like (though without the initial '#')
     #0130; F; 0069 0307; # LATIN CAPITAL LETTER I WITH DOT ABOVE
 
-    my ($line, $comment) = split / \s+ \# \s+ /x, $_;
-    next if $line eq "" || $line =~ /^#/;
+    # Get rid of comments, ignore blank or comment-only lines
+    my $line = $_ =~ s/ (?: \s* \# .* )? $ //rx;
+    next unless length $line;
     my ($hex_from, $fold_type, @hex_folded) = split /[\s;]+/, $line;
 
     next if $fold_type eq 'T';  # Perl doesn't do Turkish folding