Fix deparsing of reversed foreach loops,

[p5sagit/p5-mst-13.2.git] / ext / B / t / OptreeCheck.pm

diff --git a/ext/B/t/OptreeCheck.pm b/ext/B/t/OptreeCheck.pm
index 9c5a7e9..f8e2995 100644 (file)
--- a/ext/B/t/OptreeCheck.pm
+++ b/ext/B/t/OptreeCheck.pm
@@ -486,8 +486,8 @@ sub getRendering {
            print "stripped <$1>\n" if $in->{stripv};
            push @errs, $1;
        }
-       $rendering =~ s/^(-e syntax OK\n)//ms;
-       $rendering =~ s/^(-e had compilation errors.\n)//ms;
+       $rendering =~ s/-e syntax OK\n//;
+       $rendering =~ s/-e had compilation errors\.\n//;
     }
     return $rendering, @errs;
 }