diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-10 03:26:11 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-10 03:26:11 +0000 |
| commit | 810d9308ad3234b6d649cdfae5bbe4bf70e41ce7 (patch) | |
| tree | 5ba2e3da7bcdbe3af6d24afc0b477a6b3aef0a15 | |
| parent | 96e82bbbf794a1d9adcb753770e08c86ccdde059 (diff) | |
| download | perl-810d9308ad3234b6d649cdfae5bbe4bf70e41ce7.tar.gz | |
Move the noisy tie core dump test to fresh_perl from op/tie.
p4raw-id: //depot/perl@16531
| -rwxr-xr-x | t/op/tie.t | 12 | ||||
| -rw-r--r-- | t/run/fresh_perl.t | 7 |
2 files changed, 7 insertions, 12 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index 4eb03714fa..8b8eb64c5d 100755 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -229,18 +229,6 @@ vec($b,1,1)=0; 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; diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t index ad0f363c60..d49cddc54d 100644 --- a/t/run/fresh_perl.t +++ b/t/run/fresh_perl.t @@ -811,3 +811,10 @@ $人++; # a child is born 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. + |