summaryrefslogtreecommitdiff
path: root/toke.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 /toke.c
parent0dea61d9463d40d400a2f349f672ec0d9dcba752 (diff)
downloadperl-a6e20a404b42cad25eb97280fa2bcacffda64cd6.tar.gz
Removing /*SUPPRESS xxx*/
Message-ID: <20050616141342.GA22188@petdance.com> p4raw-id: //depot/perl@24871
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c3
1 files changed, 0 insertions, 3 deletions
diff --git a/toke.c b/toke.c
index d89ac738be..ad50ec5ddf 100644
--- a/toke.c
+++ b/toke.c
@@ -4342,8 +4342,6 @@ Perl_yylex(pTHX)
case KEY___DATA__:
case KEY___END__: {
GV *gv;
-
- /*SUPPRESS 560*/
if (PL_rsfp && (!PL_in_eval || PL_tokenbuf[2] == 'D')) {
const char *pname = "main";
if (PL_tokenbuf[2] == 'D')
@@ -10518,7 +10516,6 @@ S_scan_formline(pTHX_ register char *s)
while (!needargs) {
if (*s == '.') {
- /*SUPPRESS 530*/
#ifdef PERL_STRICT_CR
for (t = s+1;SPACE_OR_TAB(*t); t++) ;
#else