[win32] Fix C<0> problem in Pod::Html

p4raw-id: //depot/win32/perl@534

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index d03c1b6..eb08e0a 100644 (file)
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -1116,7 +1116,7 @@ sub process_text {
        # parse through the string, stopping each time we find a
        # pod-escape.  once the string has been throughly processed
        # we can output it.
-       while ($rest) {
+       while (length $rest) {
            # check to see if there are any possible pod directives in
            # the remaining part of the text.
            if ($rest =~ m/[BCEIFLSZ]</) {