X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpod%2Ftestcmp.pl;h=17f0b0b4c2c1440778f9955fc368c293517ab3e2;hb=09576c7db8c59458f52d7746e7f4062d64ff34e7;hp=5f6217192ce6cdfe8b28588eac203007c9408b80;hpb=475d79b5e99617ecaabd8d9765f5247b6d49652c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/pod/testcmp.pl b/t/pod/testcmp.pl
index 5f62171..17f0b0b 100644
--- a/t/pod/testcmp.pl
+++ b/t/pod/testcmp.pl
@@ -65,6 +65,9 @@ sub testcmp( $ $ ; $) {
       defined($f2text = <$fh2>)  and  chomp($f2text);
       ++$line;
       last unless ( defined($f1text) and defined($f2text) );
+      # kill any extra line endings
+      $f1text =~ s/[\r\n]+$//s;
+      $f2text =~ s/[\r\n]+$//s;
       $diffs = (ref $cmplines) ? &$cmplines($f1text, $f2text)
                                : ($f1text ne $f2text);
       last if $diffs;