Added proto attribute awareness
authorPeter Martini <PeterCMartini@GMail.com>
Tue, 9 Oct 2012 18:23:23 +0000 (14:23 -0400)
committerPeter Martini <PeterCMartini@GMail.com>
Wed, 17 Oct 2012 20:36:15 +0000 (16:36 -0400)
t/comp/namedproto.t

index 007074f..cbfdba7 100644 (file)
@@ -161,13 +161,13 @@ else {
     eval "is(manualproto STDOUT, 'STDOUT', 'Forcing it with set_prototype works'); 1" || die $@;
 }
 
-sub manualrecproto($name){
-    BEGIN { if (!is_miniperl) { Scalar::Util::set_prototype(\&manualrecproto,"*") } }
-    return $name;
+sub prototag($name) : proto(*){ return $name; }
+BEGIN { no_warnings("sub with proto attribute") }
+if (is_miniperl) {
+    skip("Scalar::Util may not be available in miniperl");
 }
-BEGIN {
-    local $TODO = "Not sure how to use set_prototype for a recursive";
-    no_warnings("set_prototype on recursive function");
+else {
+    eval "is(prototag STDOUT, 'STDOUT', 'Forcing it with a proto attribute works'); 1" || die $@;
 }
 
 sub ignoredproto(*);
@@ -184,6 +184,8 @@ BEGIN {
     @warnings = ();
 }
 
+
+
 {
     my $sub = sub ($x, $y) { $x * $y };