diff options
| author | John Tobey <jtobey@john-edwin-tobey.org> | 2000-10-26 18:29:53 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-27 12:02:21 +0000 |
| commit | 9a049f1cf9621e9452adfdde3610ef7c3583b41a (patch) | |
| tree | 05e5929e5a02e6610291ad84dbb6f332f981c776 /t/pragma | |
| parent | 5e66d4f1f8d408decca63565193d2b1424d52c7c (diff) | |
| download | perl-9a049f1cf9621e9452adfdde3610ef7c3583b41a.tar.gz | |
Re: [PATCH bleadperl] ripples from constsub patch
Message-Id: <m13ozHF-000FObC@feynman.localnet>
p4raw-id: //depot/perl@7455
Diffstat (limited to 't/pragma')
| -rwxr-xr-x | t/pragma/sub_lval.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/pragma/sub_lval.t b/t/pragma/sub_lval.t index 3ab8766892..660e72d646 100755 --- a/t/pragma/sub_lval.t +++ b/t/pragma/sub_lval.t @@ -334,8 +334,8 @@ print "# '$_'.\nnot " unless /Can\'t return a temporary from lvalue subroutine/; print "ok 38\n"; -sub xxx () { 'xxx' } # Not lvalue -sub lv1tmpr : lvalue { xxx } # is it a TEMP? +sub yyy () { 'yyy' } # Const, not lvalue +sub lv1tmpr : lvalue { yyy } # is it read-only? $_ = undef; eval <<'EOE' or $_ = $@; |