From: Vincent Pit Date: Thu, 16 Oct 2008 16:45:32 +0000 (+0200) Subject: padmy names may begin with a non-alnum. I think X-Git-Tag: v0.07_03~2 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=8fc94cd143b3b33a9642be69b17389375208dbcf;p=perl%2Fmodules%2Findirect.git padmy names may begin with a non-alnum. I think --- diff --git a/indirect.xs b/indirect.xs index 7c01446..e144b02 100644 --- a/indirect.xs +++ b/indirect.xs @@ -225,8 +225,6 @@ STATIC OP *indirect_ck_padany(pTHX_ OP *o) { if (*s == '$' && ++s <= t) { while (s < t && isSPACE(*s)) ++s; while (s < t && isSPACE(*t)) --t; - if (!isALPHA(*s)) - return o; sv = sv_2mortal(newSVpvn("$", 1)); sv_catpvn_nomg(sv, s, t - s + 1); indirect_map_store(o, s, sv);