Parameters will be writable copies
authorPeter Martini <PeterCMartini@GMail.com>
Wed, 26 Sep 2012 14:32:38 +0000 (10:32 -0400)
committerPeter Martini <PeterCMartini@GMail.com>
Wed, 17 Oct 2012 20:36:09 +0000 (16:36 -0400)
t/comp/namedproto.t

index f747cf9..d6b12a0 100644 (file)
@@ -137,13 +137,6 @@ BEGIN {
 }
 is(whitespace(4,5),5,"Prototype ignores whitespace");
 
 }
 is(whitespace(4,5),5,"Prototype ignores whitespace");
 
-
-# Testing readonly
-my $a = 5;
-sub testro($a){ $a = 5; }
-eval { testro($a); };
-like($@,"read-only","Args should be passed read-only");
-
 # Checking old prototype behavior
 sub oldproto(*){ my $name = shift; return $name;}
 is(oldproto STDOUT,"STDOUT", "Traditional prototype behavior still works");
 # Checking old prototype behavior
 sub oldproto(*){ my $name = shift; return $name;}
 is(oldproto STDOUT,"STDOUT", "Traditional prototype behavior still works");