Move tests under 'threads' module

[p5sagit/p5-mst-13.2.git] / t / pod / testcmp.pl

diff --git a/t/pod/testcmp.pl b/t/pod/testcmp.pl
index 5f62171..17f0b0b 100644 (file)
--- 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;