diff options
| author | Robin Houston <robin@cpan.org> | 2005-12-21 11:00:08 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-21 16:16:19 +0000 |
| commit | bc9b29dbf2ff006e91ae1d732887485497f58896 (patch) | |
| tree | 4147ad5078d3b0f0201672a8a8876a5ace346c4e /perl.c | |
| parent | 565a3db3dc85d0f63074b38e7019290e4f8f3766 (diff) | |
| download | perl-bc9b29dbf2ff006e91ae1d732887485497f58896.tar.gz | |
Feature bundle is now :5.10, and add -E switch
Message-ID: <20051221110008.GB25877@rpc142.cs.man.ac.uk>
p4raw-id: //depot/perl@26432
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -1665,6 +1665,9 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) s++; goto reswitch; + case 'E': + PL_minus_E = TRUE; + /* FALL THROUGH */ case 'e': #ifdef MACOS_TRADITIONAL /* ignore -e for Dev:Pseudo argument */ @@ -1683,7 +1686,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) argc--,argv++; } else - Perl_croak(aTHX_ "No code specified for -e"); + Perl_croak(aTHX_ "No code specified for -%c", *s); sv_catpv(PL_e_script, "\n"); break; @@ -2825,6 +2828,7 @@ S_usage(pTHX_ const char *name) /* XXX move this out into a module ? */ "-d[:debugger] run program under debugger", "-D[number/list] set debugging flags (argument is a bit mask or alphabets)", "-e program one line of program (several -e's allowed, omit programfile)", +"-E program like -e, but enables all optional features", "-f don't do $sitelib/sitecustomize.pl at startup", "-F/pattern/ split() pattern for -a switch (//'s are optional)", "-i[extension] edit <> files in place (makes backup if extension supplied)", |