diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-02 13:05:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-02 13:05:38 +0000 |
| commit | 83f527ec503b9c9b84e9a6c3ec44631f9ddff7c3 (patch) | |
| tree | 0373d676ac1ba5e004933135e3893af8cdbbd65a /t/op | |
| parent | ab97ca19a0faaf069d944477e55729b6e85238c2 (diff) | |
| download | perl-83f527ec503b9c9b84e9a6c3ec44631f9ddff7c3.tar.gz | |
Test for #9952.
p4raw-id: //depot/perl@9955
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/tie.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index 4413ed2100..9a651555fc 100755 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -196,3 +196,9 @@ vec($a,1,1)=0; vec($b,1,1)=0; die unless $a eq $b; EXPECT +######## +# An attempt at lvalueable barewords broke this + +tie FH, 'main'; +EXPECT + |