all debian patches are now upstream

[perltidy.git] / t / testsa.t

diff --git a/t/testsa.t b/t/testsa.t
index 6c78756883eb207f94b8a1fe3d9b3db42999a678..cd49ab7ec666b9f091848f547ed59c1b03e00110 100644 (file)
--- a/t/testsa.t
+++ b/t/testsa.t
@@ -17,8 +17,8 @@ if ($seqno) {
   }
 }
 elsif (tok =~/[\)\]\}]/) {
-  $min_indentation = $indentation{$seqno}
-  delete $indentation{$seqno}
+  $min_indentation = $indentation{$seqno};
+  delete $indentation{$seqno};
   if ($indentation < $min_indentation) {$indentation = $min_indentation}
 }
 EOM
@@ -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";
@@ -61,10 +63,9 @@ if ($seqno) {
         $indentation{$seqno} = indentation;
     }
 } elsif ( tok =~ /[\)\]\}]/ ) {
-    $min_indentation =
-      $indentation{$seqno} delete $indentation{$seqno}
-      if ( $indentation < $min_indentation )
-    {
+    $min_indentation = $indentation{$seqno};
+    delete $indentation{$seqno};
+    if ( $indentation < $min_indentation ) {
         $indentation = $min_indentation;
     }
 }