This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Removing /*SUPPRESS xxx*/
[perl5.git]
/
toke.c
diff --git
a/toke.c
b/toke.c
index
d89ac73
..
ad50ec5
100644
(file)
--- a/
toke.c
+++ b/
toke.c
@@
-4342,8
+4342,6
@@
Perl_yylex(pTHX)
case KEY___DATA__:
case KEY___END__: {
GV *gv;
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')
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 == '.') {
while (!needargs) {
if (*s == '.') {
- /*SUPPRESS 530*/
#ifdef PERL_STRICT_CR
for (t = s+1;SPACE_OR_TAB(*t); t++) ;
#else
#ifdef PERL_STRICT_CR
for (t = s+1;SPACE_OR_TAB(*t); t++) ;
#else