diff options
| author | Daniel Chetlin <daniel@chetlin.com> | 2000-12-27 07:55:32 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-28 22:19:21 +0000 |
| commit | 36a5d4ba9c945f72bdafa667f8c54e774c2aeef0 (patch) | |
| tree | bfd5d7ad05b9e77cc0efde84ccc378718e2be526 /t | |
| parent | 3f8f46260df6761c2dfca5c829d94c03c274d7d7 (diff) | |
| download | perl-36a5d4ba9c945f72bdafa667f8c54e774c2aeef0.tar.gz | |
Fix problem with `&' prototype
Message-ID: <20001227155532.D9573@darkstar>
p4raw-id: //depot/perl@8237
Diffstat (limited to 't')
| -rwxr-xr-x | t/comp/proto.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/comp/proto.t b/t/comp/proto.t index 845843ad64..874ab44058 100755 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -19,7 +19,7 @@ BEGIN { use strict; -print "1..123\n"; +print "1..124\n"; my $i = 1; @@ -343,6 +343,7 @@ sub sub_array (&@) { @array = (qw(O K)," ", $i++); sub_array { lc shift } @array; +sub_array { lc shift } ('O', 'K', ' ', $i++); print "\n"; ## |