Loading tests/getpart.pm +3 −4 Original line number Diff line number Diff line Loading @@ -184,8 +184,8 @@ sub loadarray { sub showdiff { my ($firstref, $secondref)=@_; my $file1=".array1"; my $file2=".array2"; my $file1=".generated"; my $file2=".expected"; open(TEMP, ">$file1"); for(@$firstref) { Loading @@ -198,8 +198,7 @@ sub showdiff { print TEMP $_; } close(TEMP); my @out = `diff $file1 $file2`; my @out = `diff -u $file2 $file1`; unlink $file1, $file2; return @out; Loading Loading
tests/getpart.pm +3 −4 Original line number Diff line number Diff line Loading @@ -184,8 +184,8 @@ sub loadarray { sub showdiff { my ($firstref, $secondref)=@_; my $file1=".array1"; my $file2=".array2"; my $file1=".generated"; my $file2=".expected"; open(TEMP, ">$file1"); for(@$firstref) { Loading @@ -198,8 +198,7 @@ sub showdiff { print TEMP $_; } close(TEMP); my @out = `diff $file1 $file2`; my @out = `diff -u $file2 $file1`; unlink $file1, $file2; return @out; Loading