From: david nicol <whatever@davidnicol.com>
Date: Mon, 8 Sep 2003 23:39:32 +0000 (-0500)
Subject: Re: [PATCH] honoring void context for map(), return from sub end test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b3c0f1bde204be7b0c1795e8d30824df46a47ce0;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] honoring void context for map(), return from sub end test
Message-Id: <1063082372.1375.126.camel@plaza.davidnicol.com>

(a testcase)

p4raw-id: //depot/perl@21131
---

diff --git a/t/op/grep.t b/t/op/grep.t
index 6e60813..5f4e7a6 100755
--- a/t/op/grep.t
+++ b/t/op/grep.t
@@ -135,3 +135,11 @@ sub ok {
     $test++;
 }
 
+{
+    sub add_an_x(@){
+        map {"${_}x"} @_;
+    };
+    ok join("-",add_an_x(1,2,3,4)), "1x-2x-3x-4x";
+}
+
+