p4raw-id: //depot/perl@16531
die unless $a eq $b;
EXPECT
########
-# An attempt at lvalueable barewords broke this
-
-tie FH, 'main';
-EXPECT
-
-########
-# TODO An attempt at lvalueable barewords broke this
-
-tie FH, 'main';
-EXPECT
-
-########
# correct unlocalisation of tied hashes (patch #16431)
use Tie::Hash ;
tie %tied, Tie::StdHash;
print $人, "\n";
EXPECT
3
+########
+# TODO An attempt at lvalueable barewords broke this
+tie FH, 'main';
+EXPECT
+Can't modify constant item in tie at - line 2, near "'main';"
+Execution of - aborted due to compilation errors.
+