Make finding transcode error line number more memory efficient.

1 files changed, 2 insertions, 2 deletions

diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check
index 39f6057..ce56dcd 100755
--- a/httpd/cgi-bin/check
+++ b/httpd/cgi-bin/check
@@ -3222,9 +3222,9 @@ sub transcode
         # Transcoding failed - do it again line by line to find out exactly
         # where
         my $line_num = 0;
-        foreach my $input_line (split /\r\n|\n|\r/, $input) {
+        while ($input =~ /(.*?)(?:\r\n|\n|\r)/g) {
             $line_num++;
-            eval { $enc->decode($input_line, Encode::FB_CROAK); };
+            eval { $enc->decode($1, Encode::FB_CROAK); };
             if ($@) {
                 my $croak_message = $@;
                 $croak_message =~ s/ at .*//;