tweak change#5945 to display correct switch name in diagnostic

p4raw-link: @5945 on //depot/perl: 6df41af287665da86827e04cbbf0dae1bbd4c94e

p4raw-id: //depot/perl@6013

1 files changed, 2 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index dce558f362..ee71369b2a 100644
--- a/perl.c
+++ b/perl.c
@@ -2137,7 +2137,8 @@ Perl_moreswitches(pTHX_ char *s)
 		}
 	    } else {
                 if (s == start)
-                    Perl_croak(aTHX_ "Module name required with -M option");
+                    Perl_croak(aTHX_ "Module name required with -%c option",
+			       s[-1]);
 		sv_catpvn(sv, start, s-start);
 		sv_catpv(sv, " split(/,/,q{");
 		sv_catpv(sv, ++s);