diff options
| author | david nicol <whatever@davidnicol.com> | 2003-09-08 18:39:32 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-09 07:54:52 +0000 |
| commit | b3c0f1bde204be7b0c1795e8d30824df46a47ce0 (patch) | |
| tree | b318ca902d364f4b389cbebd91bea0c681f20132 /t | |
| parent | 3dd03f9f2bff1ada569672f945edbef2c9fdf4b8 (diff) | |
| download | perl-b3c0f1bde204be7b0c1795e8d30824df46a47ce0.tar.gz | |
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
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/grep.t | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/t/op/grep.t b/t/op/grep.t index 6e608132fc..5f4e7a6173 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"; +} + + |