Select Code to Download

Select or download this

STATIC void
S_checkcomma(pTHX_ register char *s, char *name, char *what)
{
...
        }
    }
    # [the S_checkcomma function continues from here with an unrelated
+ syntax check]

Select or download this

STATIC void
S_checkcomma(pTHX_ register char *s, char *name, char *what)
{
    char *w;

    if (*s == ' ' && s[1] == '(') {     /* XXX gotta be a better way *
+/

Select or download this
if (ckWARN(WARN_SYNTAX)) {

Select or download this

            int level = 1;
            for (w = s+2; *w && level; w++) {
                if (*w == '(')
...
                else if (*w == ')')
                    --level;
            }

Select or download this

            if (*w)
                for (; *w && isSPACE(*w); w++) ;

Select or download this
if (!*w || !strchr(";|})]oaiuw!=", *w)) /* an advisory hack only... */

Select or download this

                Perl_warner(aTHX_ WARN_SYNTAX,
                            "%s (...) interpreted as function",name);
        }
    }

Select or download this

print (/\)/);      # warning
print (/./);       # no warning
print ("hey))");   # no warning
print ("hey")&&1;  # warning
print ("hey")||1;  # no warning