# various yaccs may or may not capitalize 'syntax'.
$results =~ s/^(syntax|parse) error/syntax error/mig;
- $results =~ s/\n\n/\n/ if $^O eq 'VMS'; # pipes double these sometimes
+ if ($^O eq 'VMS') {
+ # some tests will trigger VMS messages that won't be expected
+ $results =~ s/\n?%[A-Z]+-[SIWEF]-[A-Z]+,.*//;
+
+ # pipes double these sometimes
+ $results =~ s/\n\n/\n/g;
+ }
$expected =~ s/\n+$//;
my $ok = $results eq $expected;
1234 1
5678 1
1234 5678 2
-########
-# keep this last - doesn't seem to work otherwise?
+######## found by Markov chain stress testing
eval "a.b.c.d.e.f;sub"
EXPECT
EXPECT
Can't modify constant item in list assignment at - line 1, near ");"
Execution of - aborted due to compilation errors.
+######## tying a bareword causes a segfault in 5.6.1
+tie FOO, "Foo";
+EXPECT
+Can't modify constant item in tie at - line 1, near ""Foo";"
+Execution of - aborted due to compilation errors.