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


Hello,

xx hangs if a non-numeric value appears on the right hand side:

my @a = "b" xx "monkey";

my @c = <a b c>
my @d = "e" xx @c;

Attached is a patch which corrects this while still supporting a Whatever 
argument like so:

my @f = <a b c> Z (1 xx *); # @f is <a 1 b 1 c 1>

I've added fudged spectests to S03-operators/repeat.t and 
S05-transliteration/trans.t (this bug also causes .trans('x' => '') to hang).


Cheers,
Fitz Elliott

Attachment: 0001-force-xx-op-to-numify-rhs-except-Whatevers.patch
Description: Binary data

Reply via email to