1 files changed, 2 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index 41a62b7b74..5458c1d59d 100644
--- a/perl.c
+++ b/perl.c
@@ -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':