# New Ticket Created by  Zefram 
# Please include the string:  [perl #130967]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=130967 >


> any(([],)).perl
any([])
> any(([],)).perl.EVAL.perl
any()
> any(((),)).perl
any(())
> any(((),)).perl.EVAL.perl
any()
> my @a; @a[0] = slip(22,33)
(22 33)
> any(@a).perl
any($(slip(22, 33)))
> any(@a).perl.EVAL.perl
any(22, 33)

Failure of .perl.EVAL to round-trip the Junction object.  Happens with
many kinds of iterable object as sole element of the Junction.

-zefram

Reply via email to