diff options
| author | Ben Morrow <ben@morrow.me.uk> | 2007-10-16 20:51:09 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-17 08:20:36 +0000 |
| commit | fdc5b0232cfd1c95eedd45a761da6b9eaac3a5eb (patch) | |
| tree | 8f7675772a2d7bf09ba5a0bf29aa255f11c10805 /t | |
| parent | 1e1d4b91957a9f66bbb14b2c7f1bbf88c1f89cdf (diff) | |
| download | perl-fdc5b0232cfd1c95eedd45a761da6b9eaac3a5eb.tar.gz | |
Another ex-PVBM assert
Message-ID: <tpdfu4-bsm.ln1@osiris.mauzo.dyndns.org>
p4raw-id: //depot/perl@32121
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/lex_assign.t | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t index c6c424d26e..38f11cc339 100755 --- a/t/op/lex_assign.t +++ b/t/op/lex_assign.t @@ -24,7 +24,7 @@ sub subb {"in s"} @INPUT = <DATA>; @simple_input = grep /^\s*\w+\s*\$\w+\s*[#\n]/, @INPUT; -print "1..", (10 + @INPUT + @simple_input), "\n"; +print "1..", (11 + @INPUT + @simple_input), "\n"; $ord = 0; sub wrn {"@_"} @@ -170,6 +170,25 @@ EOE } } } + +$ord++; +eval { + sub PVBM () { 'foo' } + index 'foo', PVBM; + my $x = PVBM; + + my $str = 'foo'; + my $pvlv = \substr $str, 0, 1; + $x = $pvlv; + + 1; +}; +if ($@) { + warn "# $@"; + print 'not '; +} +print "ok $ord\n"; + __END__ ref $xref # ref ref $cstr # ref nonref |