diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-08 15:33:44 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-09 17:09:09 +0000 |
| commit | 2e42473a975ea1001c74e6c042a6eb31b759046a (patch) | |
| tree | d6ba9184f1d95c8947eafccef6411ddccf3677af /t | |
| parent | 4fa42389b9410dcdc1e5577257d89ddbbe72288d (diff) | |
| download | perl-2e42473a975ea1001c74e6c042a6eb31b759046a.tar.gz | |
[win32] protect sortcop from C<sort { sort { ... } ... } ...>
Message-Id: <199805082333.TAA06287@aatma.engin.umich.edu>
Subject: [PATCH] Re: double recursion in sort
p4raw-id: //depot/win32/perl@918
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/runlevel.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/op/runlevel.t b/t/op/runlevel.t index b5e5dbb08c..bff26e4b71 100755 --- a/t/op/runlevel.t +++ b/t/op/runlevel.t @@ -188,6 +188,8 @@ sub sortfn { print "---- ".join(', ', @x)."\n"; EXPECT sortfn 4, 5, 6 +sortfn 4, 5, 6 +sortfn 4, 5, 6 ---- 1, 2, 3 ######## @a = (3, 2, 1); |