diff options
Diffstat (limited to 't/op/misc.t')
-rwxr-xr-x | t/op/misc.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index 09385b94a4..25eb6619ed 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -289,3 +289,7 @@ $s = 0; map {#this newline here tickles the bug $s += $_} (1,2,4); print "eat flaming death\n" unless ($s == 7); +######## +sub foo { local $_ = shift; split; @_ } +@x = foo(' x y z '); +print "you die joe!\n" unless "@x" eq 'x y z'; |