X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=indirect.xs;h=5a3dd986fdf4a4f401a67672c45a24ad2d3242ba;hp=5b012683f3deec681f399ac4636aa7c98ceae6b3;hb=60f610dff9c3af6ea1775632ca4c65e6db07cbb3;hpb=33de2d51651577aa4d7a8a1ff6a2fad07b1711c7 diff --git a/indirect.xs b/indirect.xs index 5b01268..5a3dd98 100644 --- a/indirect.xs +++ b/indirect.xs @@ -113,9 +113,6 @@ STATIC const char *indirect_find(pTHX_ SV *sv, const char *s) { STRLEN len; const char *p = NULL, *r = SvPV_const(sv, len); - if (!len) - return s; - p = strstr(s, r); while (p) { p += len;