From ebce020f70f422843e1ea8380fd3ec0d8a63faff Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
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/basic.t    |  5 -----
 t/readonly.t | 32 --------------------------------
 2 files changed, 37 deletions(-)
 delete mode 100644 t/readonly.t

(limited to 't')

diff --git a/t/basic.t b/t/basic.t
index 2b2104f..080c2cf 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -29,9 +29,4 @@ is(sum(1, 2, 3, 4), 10);
 
 ok(exists $Foo::{foo});
 
-fun empty ($bar, $baz) { }
-
-is(scalar(empty(1, 2)), undef);
-is_deeply([empty(1, 2)], []);
-
 done_testing;
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