From 5859159894d6a7681deeba515eb57ac39fe9406f Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Sat, 21 Apr 2012 18:30:35 -0700
Subject: [PATCH] Make cproto.t more stringent

It was allowing prototype() to return undef where an empty string
was expected.
---
 t/op/cproto.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/t/op/cproto.t b/t/op/cproto.t
index 8870df8..8727897 100644
--- 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
+	);
     }
 }
 
-- 
2.7.4