diff options
| author | Simon Cozens <simon@netthink.co.uk> | 2000-12-27 14:12:44 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-28 22:37:45 +0000 |
| commit | f0670693ff29ac8dc3df00d73b858a9d736644ed (patch) | |
| tree | 8bbec927d4422331c4ad492ac366b541d861526d /t/op/sort.t | |
| parent | a5de3055c23e1cf83512f28ca751d687d2cbd7ef (diff) | |
| download | perl-f0670693ff29ac8dc3df00d73b858a9d736644ed.tar.gz | |
Re: [ID 19991001.003] sort(sub(arg)) misparsed as sort sub args
Message-ID: <20001227141244.A13344@deep-dark-truthful-mirror.perlhacker.org>
p4raw-id: //depot/perl@8239
Diffstat (limited to 't/op/sort.t')
| -rwxr-xr-x | t/op/sort.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/op/sort.t b/t/op/sort.t index 9095871a29..c1dfb63ccb 100755 --- a/t/op/sort.t +++ b/t/op/sort.t @@ -5,7 +5,7 @@ BEGIN { @INC = '../lib'; } use warnings; -print "1..57\n"; +print "1..58\n"; # XXX known to leak scalars { @@ -321,3 +321,10 @@ sub cxt_six { sort test_if_scalar 1,2 } print "# x = '@b'\n"; print !$def ? "ok 57\n" : "not ok 57\n"; } + +# Bug 19991001.003 +{ + sub routine { "one", "two" }; + @a = sort(routine(1)); + print "@a" eq "one two" ? "ok 58\n" : "not ok 58\n"; +} |