diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-05-16 13:45:22 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-21 19:15:02 +0000 |
| commit | 57ff9a15b1566945fcd54bfbac75501e3ca969c2 (patch) | |
| tree | 79bf5ebd42a7171413443f1133e953243f7e53ec /t | |
| parent | 62520c913c464c89e94916880c0661ff91051cc2 (diff) | |
| download | perl-57ff9a15b1566945fcd54bfbac75501e3ca969c2.tar.gz | |
[win32] fix problematic change#965 from maintbranch
Message-Id: <199805162145.RAA02552@monk.mps.ohio-state.edu>
Subject: Re: Not OK (after all) : perl 5.00404 +MAINT_TRIAL_3 on sun4-solaris 2.5
p4raw-link: @965 on //depot/maint-5.004/perl: 8472ac73d6d802946d766b5459d2d9c334889a3f
p4raw-id: //depot/win32/perl@1023
Diffstat (limited to 't')
| -rwxr-xr-x | t/comp/proto.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/t/comp/proto.t b/t/comp/proto.t index 2a4c9ccce5..6a59107ce7 100755 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -16,7 +16,7 @@ BEGIN { use strict; -print "1..80\n"; +print "1..82\n"; my $i = 1; @@ -403,3 +403,13 @@ sub foo2 ($\%); eval q{ foo2 "s" }; print "not " unless $@ =~ /^Not enough/; print "ok ", $i++, "\n"; + +sub X::foo3; +*X::foo3 = sub {'ok'}; +print "# $@not " unless eval {X->foo3} eq 'ok'; +print "ok ", $i++, "\n"; + +sub X::foo4 ($); +*X::foo4 = sub ($) {'ok'}; +print "not " unless X->foo4 eq 'ok'; +print "ok ", $i++, "\n"; |