diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-16 08:29:10 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-16 08:29:10 +0000 |
| commit | f5542d3a54f14f881b60902316767ce068dbe5dd (patch) | |
| tree | 8c330773a13d8b19c671757f8194155a32129adb /perl.c | |
| parent | dc1061dcf24d13f751b01c1228673c4d12010ea3 (diff) | |
| download | perl-f5542d3a54f14f881b60902316767ce068dbe5dd.tar.gz | |
Revert part of change #24854
p4raw-link: @24854 on //depot/perl: ab019eaa775fdcae8aaf709315c7ba85a788ee6c
p4raw-id: //depot/perl@24861
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -1378,13 +1378,13 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) sv_catpv(PL_e_script, "\n"); break; -#ifdef USE_SITECUSTOMIZE case 'f': +#ifdef USE_SITECUSTOMIZE minus_f = TRUE; +#endif s++; goto reswitch; -#endif case 'I': /* -I handled both here and in moreswitches() */ forbid_setid("-I"); if (!*++s && (s=argv[1]) != Nullch) { @@ -2439,9 +2439,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)", -#ifdef USE_SITECUSTOMIZE "-f don't do $sitelib/sitecustomize.pl at startup", -#endif "-F/pattern/ split() pattern for -a switch (//'s are optional)", "-i[extension] edit <> files in place (makes backup if extension supplied)", "-Idirectory specify @INC/#include directory (several -I's allowed)", |