Select Code to Download

 349         |       USE startsub
 350                         { CvSPECIAL_on(PL_compcv); /* It's a BEGI
+N {} */ }
 351                 BAREWORD BAREWORD optlistexpr ';'
...
 355                           parser->parsed_sub = 1;
 356                           $$ = NULL;
 357                         }

6307     /* Fake up an import/unimport */
6308     if (arg && arg->op_type == OP_STUB) {
6309         imop = arg;             /* no import on explicit () */
6310     }

$ perl -mopen -e 1

$ perl -Mopen -e 1
open: needs explicit list of PerlIO layers at -e line 0.
BEGIN failed--compilation aborted.

$ perl -Mopen= -e 1
open: needs explicit list of PerlIO layers at -e line 0.
...
$ perl -mopen= -e 1
open: needs explicit list of PerlIO layers at -e line 0.
BEGIN failed--compilation aborted.