diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-06 15:04:17 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-06 15:04:17 +0000 |
| commit | 69dcf70cb27ded45873eb396cabbcbd82a21a2c8 (patch) | |
| tree | d2d98cd7761d5c6d976ef213d2b12a20be2b527b /t | |
| parent | 85aff5773f2412a54180cc35f86370c56b65bf77 (diff) | |
| download | perl-69dcf70cb27ded45873eb396cabbcbd82a21a2c8.tar.gz | |
Some more Chip patches (tweaked to match _5x):
Subject: [PATCH] Fix empty BLOCK
Date: Wed, 4 Feb 1998 16:52:28 -0500 (EST)
Subject: [PATCH] fix (\@@) proto
Date: Thu, 5 Feb 1998 10:24:29 -0500 (EST)
Subject: [PATCH] Cope with lack of args in Fcntl::AUTOLOAD
Date: Thu, 5 Feb 1998 21:26:55 -0500 (EST)
Subject: [PATCH] Don't fold string comparison under C<use locale>
Date: Thu, 5 Feb 1998 21:46:25 -0500 (EST)
p4raw-id: //depot/perl@463
Diffstat (limited to 't')
| -rwxr-xr-x | t/comp/proto.t | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/t/comp/proto.t b/t/comp/proto.t index d1cfede8af..080110bdcc 100755 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -362,17 +362,18 @@ printf "ok %d\n",$i++; ## ## -testing \&an_array_ref, '\@'; +testing \&array_ref_plus, '\@@'; -sub an_array_ref (\@) { +sub array_ref_plus (\@@) { print "# \@_ = (",join(",",@_),")\n"; - print "not " unless ref($_[0]) && 1 == @{$_[0]}; + print "not " unless @_ == 2 && ref($_[0]) && 1 == @{$_[0]} && $_[1] eq 'x'; printf "ok %d\n",$i++; @{$_[0]} = (qw(ok)," ",$i++,"\n"); } @array = ('a'); -an_array_ref @array; +{ my @more = ('x'); + array_ref_plus @array, @more; } print "not " unless @array == 4; print @array; |