diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-28 16:37:26 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-28 16:37:26 +0000 |
| commit | 2692f720225eadd5a0dcbb17c23107401470624b (patch) | |
| tree | 03876fdfe1704aecbd4ccf8c4f2e8e01fb3ccbb5 /t/comp | |
| parent | 3ffaa9377e33221d8a6272d0232e8830ba4312ca (diff) | |
| download | perl-2692f720225eadd5a0dcbb17c23107401470624b.tar.gz | |
change#3449 wasn't doing enough
p4raw-link: @3449 on //depot/perl: 18228614d1dac2db099ef3d8846e53f44accce72
p4raw-id: //depot/perl@3493
Diffstat (limited to 't/comp')
| -rwxr-xr-x | t/comp/proto.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/comp/proto.t b/t/comp/proto.t index 3474a7e1ba..6d60342b5f 100755 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -419,6 +419,7 @@ print "ok ", $i++, "\n"; sub star (*&) { &{$_[1]} } sub star2 (**&) { &{$_[2]} } sub BAR { "quux" } +sub Bar::BAZ { "quuz" } my $star = 'FOO'; star FOO, sub { print "ok $i\n" if $_[0] eq 'FOO' }; $i++; star(FOO, sub { print "ok $i\n" if $_[0] eq 'FOO' }); $i++; @@ -432,8 +433,8 @@ star \*FOO, sub { print "ok $i\n" if $_[0] eq \*FOO }; $i++; star(\*FOO, sub { print "ok $i\n" if $_[0] eq \*FOO }); $i++; star2 FOO, BAR, sub { print "ok $i\n" if $_[0] eq 'FOO' and $_[1] eq 'BAR' }; $i++; -star2(BAR, FOO, sub { print "ok $i\n" - if $_[0] eq 'BAR' and $_[1] eq 'FOO' }); $i++; +star2(Bar::BAZ, FOO, sub { print "ok $i\n" + if $_[0] eq 'Bar::BAZ' and $_[1] eq 'FOO' }); $i++; star2 BAR(), FOO, sub { print "ok $i\n" if $_[0] eq 'quux' and $_[1] eq 'FOO' }; $i++; star2(FOO, BAR(), sub { print "ok $i\n" |