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 (executable)
--- 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";
+}
+
+