diff options
Diffstat (limited to 'tests/getpart.pm')
-rw-r--r-- | tests/getpart.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/tests/getpart.pm b/tests/getpart.pm index 92a237830..45488338f 100644 --- a/tests/getpart.pm +++ b/tests/getpart.pm @@ -264,13 +264,21 @@ sub showdiff { open(TEMP, ">$file1"); for(@$firstref) { - print TEMP $_; + my $l = $_; + $l =~ s/\r/[CR]/g; + $l =~ s/\n/[LF]/g; + print TEMP $l; + print TEMP "\n"; } close(TEMP); open(TEMP, ">$file2"); for(@$secondref) { - print TEMP $_; + my $l = $_; + $l =~ s/\r/[CR]/g; + $l =~ s/\n/[LF]/g; + print TEMP $l; + print TEMP "\n"; } close(TEMP); my @out = `diff -u $file2 $file1 2>/dev/null`; |