diff options
| author | Simon Cozens <simon@netthink.co.uk> | 2000-12-29 14:34:04 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-29 17:43:07 +0000 |
| commit | 26191e783d73bf5f223253769d4bfbf74617dc91 (patch) | |
| tree | 63b19e355115d31778642fab2dac1998bb8a14cf /t/pragma | |
| parent | d38a0a1467f89c02cbd16ebdc31b41c6b552f379 (diff) | |
| download | perl-26191e783d73bf5f223253769d4bfbf74617dc91.tar.gz | |
Re: [PATCH] Interesting syntax idea
Message-ID: <20001229143404.A7762@deep-dark-truthful-mirror.perlhacker.org>
Tests for #8254.
p4raw-id: //depot/perl@8255
Diffstat (limited to 't/pragma')
| -rwxr-xr-x | t/pragma/sub_lval.t | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/t/pragma/sub_lval.t b/t/pragma/sub_lval.t index 1b8b73a7d8..a54075dd64 100755 --- a/t/pragma/sub_lval.t +++ b/t/pragma/sub_lval.t @@ -1,4 +1,4 @@ -print "1..47\n"; +print "1..49\n"; BEGIN { chdir 't' if -d 't'; @@ -436,3 +436,16 @@ foobar() = 12; print "# '$newvar'.\nnot " unless $newvar eq "12"; print "ok 47\n"; +# Testing DWIM of foo = bar; +sub foo : lvalue { + $a; +} +$a = "not ok 48\n"; +foo = "ok 48\n"; +print $a; + +open bar, ">nothing" or die $!; +bar = *STDOUT; +print bar "ok 49\n"; +unlink "nothing"; + |