New upstream version 20160302

[perltidy.git] / t / testsa.t

diff --git a/t/testsa.t b/t/testsa.t
index d360dda536abe2f947e6b7b6e90519ba801035d7..cd49ab7ec666b9f091848f547ed59c1b03e00110 100644 (file)
--- a/t/testsa.t
+++ b/t/testsa.t
@@ -36,7 +36,9 @@ my @expected_output=<DATA>;
 my $ok=1;
 if (@expected_output == @tidy_output) {
         while ( $_ = pop @tidy_output ) {
+           s/\s+$//;
             my $expect = pop @expected_output;
+           $expect=~s/\s+$//;
             if ( $expect ne $_ ) {
                 print STDERR "got:$_";
                 print STDERR "---\n";