ExtUtils/typemap: better error messages + constant string optimization

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

diff --git a/t/pod/testcmp.pl b/t/pod/testcmp.pl
index d61bbff..17f0b0b 100644 (file)
--- a/t/pod/testcmp.pl
+++ b/t/pod/testcmp.pl
@@ -7,6 +7,7 @@ use Carp;
 use Exporter;
 use File::Basename;
 use File::Spec;
+use FileHandle;
 
 @ISA = qw(Exporter);
 @EXPORT = qw(&testcmp);
@@ -64,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;