diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-08-08 22:15:52 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-08 22:15:52 -0700 |
commit | d673215e89e48f1d926b059d6b44b3b8a681d538 (patch) | |
tree | 74caec402dfc9849baa99c00f8f7db4381f74b56 /t | |
parent | ea31ed6697f4ec8ba9adbd2e965d8912bb223307 (diff) | |
download | perl-d673215e89e48f1d926b059d6b44b3b8a681d538.tar.gz |
Make prototype("CORE::CORE") die once more.
Commit b8c38f0a2a65 accidentally made prototype("CORE::CORE") return
undef instead of dying. This is the only case that reached the line
with the ‘Should not happen...’ comment.
This commit changes it to be handled earlier and also adds an asser-
tion to make sure that unreachable code really is unreachable (which
it should be now, I think, I hope...).
Diffstat (limited to 't')
-rw-r--r-- | t/op/cproto.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/cproto.t b/t/op/cproto.t index ee9743375b..e1f3125dfc 100644 --- a/t/op/cproto.t +++ b/t/op/cproto.t @@ -7,7 +7,7 @@ BEGIN { } BEGIN { require './test.pl'; } -plan tests => 243; +plan tests => 244; while (<DATA>) { chomp; @@ -32,6 +32,7 @@ __LINE__ () __PACKAGE__ () __DATA__ undef __END__ undef +CORE unknown abs (_) accept (**) alarm (_) |