diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2001-12-01 00:46:58 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-01 15:55:51 +0000 |
| commit | a397c3d90f2714d67e8c8dc3e4dfc0b40f61e44e (patch) | |
| tree | 2e63f37e1a1d6c2ed000a02c9acbec62496904bb /t/op/method.t | |
| parent | fdf1c2a96851c109301f03c196f94876286980ed (diff) | |
| download | perl-a397c3d90f2714d67e8c8dc3e4dfc0b40f61e44e.tar.gz | |
parser panics on lvalue methods
Message-ID: <20011130234658.A717@rafael>
p4raw-id: //depot/perl@13404
Diffstat (limited to 't/op/method.t')
| -rwxr-xr-x | t/op/method.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/t/op/method.t b/t/op/method.t index 4e4ac97c19..0d4e09b10a 100755 --- a/t/op/method.t +++ b/t/op/method.t @@ -9,7 +9,7 @@ BEGIN { @INC = '../lib'; } -print "1..72\n"; +print "1..73\n"; @A::ISA = 'B'; @B::ISA = 'C'; @@ -240,4 +240,13 @@ test( Foo->boogie(), "yes, sir!"); eval { sub AUTOLOAD { "ok ", shift, "\n"; } }; print nonsuch(++$cnt); +# Bug ID 20010902.002 +test ( + eval q[ + $x = 'x'; + sub Foo::x : lvalue { $x } + Foo->$x = 'ok'; + ] || $@, 'ok' +); + print "# $cnt tests completed\n"; |