summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2005-06-16 04:13:42 -0500
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-06-16 13:55:18 +0000
commita6e20a404b42cad25eb97280fa2bcacffda64cd6 (patch)
treebecab207af03fe0a26c7ec2809551b75b0302163 /regexec.c
parent0dea61d9463d40d400a2f349f672ec0d9dcba752 (diff)
downloadperl-a6e20a404b42cad25eb97280fa2bcacffda64cd6.tar.gz
Removing /*SUPPRESS xxx*/
Message-ID: <20050616141342.GA22188@petdance.com> p4raw-id: //depot/perl@24871
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c3
1 files changed, 0 insertions, 3 deletions
diff --git a/regexec.c b/regexec.c
index 64149d4367..fa3eb1ba57 100644
--- a/regexec.c
+++ b/regexec.c
@@ -55,7 +55,6 @@
# define PERL_NO_GET_CONTEXT
#endif
-/*SUPPRESS 112*/
/*
* pregcomp and pregexec -- regsub and regerror are not used in perl
*
@@ -1849,7 +1848,6 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char *
"Did not find anchored character...\n")
);
}
- /*SUPPRESS 560*/
else if (prog->anchored_substr != Nullsv
|| prog->anchored_utf8 != Nullsv
|| ((prog->float_substr != Nullsv || prog->float_utf8 != Nullsv)
@@ -4328,7 +4326,6 @@ do_no:
goto do_no;
}
/* Have more choice yet. Reuse the same uwb. */
- /*SUPPRESS 560*/
if ((n = (uwb->type == RE_UNWIND_BRANCH
? NEXT_OFF(next) : ARG(next))))
next += n;