From: Rafael Garcia-Suarez Date: Fri, 1 Dec 2006 14:03:22 +0000 (+0000) Subject: Remove unused variable X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=644c02aab31351f7a9afc40268332a52a85a5c41;p=p5sagit%2Fp5-mst-13.2.git Remove unused variable p4raw-id: //depot/perl@29431 --- diff --git a/regcomp.c b/regcomp.c index 0e506e7..c5a0b7b 100644 --- a/regcomp.c +++ b/regcomp.c @@ -8669,8 +8669,7 @@ Perl_re_dup(pTHX_ const regexp *r, CLONE_PARAMS *param) regexp *ret; int i, npar; struct reg_substr_datum *s; - RXi_GET_DECL(r,ri); - + if (!r) return (REGEXP *)NULL;