Make cproto.t more stringent

It was allowing prototype() to return undef where an empty string
was expected.

diff --git a/t/op/cproto.t b/t/op/cproto.t
index 8870df8..8727897 100644 (file)
--- a/t/op/cproto.t
+++ b/t/op/cproto.t
@@ -20,7 +20,10 @@ while (<DATA>) {
        like( $@, qr/Can't find an opnumber for/, $keyword );
     }
     else {
-       is( "(".prototype("CORE::".$keyword).")", $proto, $keyword );
+       is(
+           "(".(prototype("CORE::".$keyword) // 'undef').")", $proto,
+           $keyword
+       );
     }
 }