diff options
| author | Tony Cook <tony@develop-help.com> | 2013-07-16 12:11:55 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2013-07-23 10:02:26 +1000 |
| commit | 24ffa3099a4f0f4904129f4f4633846134d0b51f (patch) | |
| tree | 7bc60fe6c62d6b04ccc0272003361aaa4d524570 /perl.c | |
| parent | 3271c5f82f49e4fe01b86ca11bb7305e0b5ba12a (diff) | |
| download | perl-24ffa3099a4f0f4904129f4f4633846134d0b51f.tar.gz | |
[perl #116190] -F and -a now imply -n
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -3215,12 +3215,14 @@ Perl_moreswitches(pTHX_ const char *s) case 'F': PL_minus_a = TRUE; PL_minus_F = TRUE; + PL_minus_n = TRUE; PL_splitstr = ++s; while (*s && !isSPACE(*s)) ++s; PL_splitstr = savepvn(PL_splitstr, s - PL_splitstr); return s; case 'a': PL_minus_a = TRUE; + PL_minus_n = TRUE; s++; return s; case 'c': |