diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-01-06 18:11:22 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-01-06 18:11:22 +0000 |
| commit | 800633c3daced5882d77eb7f133a700d5838565e (patch) | |
| tree | d7e3829e4d8c863840aa9983bd8574d0aba65629 /perl.c | |
| parent | 2b712af56b0b0dbe19e312dacbdd227fb3dad324 (diff) | |
| download | perl-800633c3daced5882d77eb7f133a700d5838565e.tar.gz | |
Fix bug #24813 : the -0 wasn't recognized on the #! line
p4raw-id: //depot/perl@22082
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1358,7 +1358,6 @@ print \" \\@INC:\\n @INC\\n\";"); } } switch_end: - sv_setsv(get_sv("/", TRUE), PL_rs); if ( #ifndef SECURE_INTERNAL_GETENV @@ -2389,6 +2388,7 @@ Perl_moreswitches(pTHX_ char *s) PL_rs = newSVpvn(&ch, 1); } } + sv_setsv(get_sv("/", TRUE), PL_rs); return s + numlen; } case 'C': |