diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-16 04:13:42 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-16 13:55:18 +0000 |
| commit | a6e20a404b42cad25eb97280fa2bcacffda64cd6 (patch) | |
| tree | becab207af03fe0a26c7ec2809551b75b0302163 /perl.c | |
| parent | 0dea61d9463d40d400a2f349f672ec0d9dcba752 (diff) | |
| download | perl-a6e20a404b42cad25eb97280fa2bcacffda64cd6.tar.gz | |
Removing /*SUPPRESS xxx*/
Message-ID: <20050616141342.GA22188@petdance.com>
p4raw-id: //depot/perl@24871
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -2654,7 +2654,6 @@ Perl_moreswitches(pTHX_ char *s) "Recompile perl with -DDEBUGGING to use -D switch (did you mean -d ?)\n"); for (s++; isALNUM(*s); s++) ; #endif - /*SUPPRESS 530*/ return s; } case 'h': @@ -2670,8 +2669,8 @@ Perl_moreswitches(pTHX_ char *s) } #endif /* __CYGWIN__ */ PL_inplace = savepv(s+1); - /*SUPPRESS 530*/ - for (s = PL_inplace; *s && !isSPACE(*s); s++) ; + for (s = PL_inplace; *s && !isSPACE(*s); s++) + ; if (*s) { *s++ = '\0'; if (*s == '-') /* Additional switches on #! line. */ @@ -3842,7 +3841,6 @@ S_find_beginning(pTHX) while (isDIGIT(s2[-1]) || s2[-1] == '-' || s2[-1] == '.' || s2[-1] == '_') s2--; if (strnEQ(s2-4,"perl",4)) - /*SUPPRESS 530*/ while ((s = moreswitches(s))) ; } |