From ebce020f70f422843e1ea8380fd3ec0d8a63faff Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Thu, 20 Sep 2012 11:23:56 -0500 Subject: Revert "make function arguments readonly" This reverts commit 35d85cfe78dd870384d3aef07a1e852267061097. Looks like we don't actually want this behavior. --- t/readonly.t | 32 -------------------------------- 1 file changed, 32 deletions(-) delete mode 100644 t/readonly.t (limited to 't/readonly.t') diff --git a/t/readonly.t b/t/readonly.t deleted file mode 100644 index f0b82ea..0000000 --- a/t/readonly.t +++ /dev/null @@ -1,32 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use Test::More; - -use Fun; - -my $thing = 1; - -fun foo ($bar) { $bar = 1 } - -ok(!eval { foo(); 1 }); -ok(!eval { foo(1); 1 }); -ok(!eval { foo($thing); 1 }); -ok(!eval { foo($thing + 1); 1 }); - -fun bar ($baz) { $baz } - -ok(eval { bar(); 1 }); -ok(eval { bar(1); 1 }); -ok(eval { bar($thing); 1 }); -ok(eval { bar($thing + 1); 1 }); - -ok(eval { $thing = 2; 1 }); -is($thing, 2); - -fun baz ($quux) { $_[0] = 1 } - -ok(eval { baz($thing); 1 }); -is($thing, 1); - -done_testing; -- cgit v1.2.3-54-g00ecf