From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 28 Apr 2000 21:25:22 +0000 (+0000)
Subject: tweak change#5945 to display correct switch name in diagnostic
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=be98fb356a796bbf223f55e771e6c04069c84d0d;p=p5sagit%2Fp5-mst-13.2.git

tweak change#5945 to display correct switch name in diagnostic

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

p4raw-id: //depot/perl@6013
---

diff --git a/perl.c b/perl.c
index dce558f..ee71369 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);
diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index cb4be0e..1657c45 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -1871,11 +1871,11 @@ couldn't be created for some peculiar reason.
 
 (F) Only a bare module name is allowed as the first argument to a "use".
 
-=item Module name required with -M option
+=item Module name required with -%c option
 
-(F) The C<-M> option says that Perl should load some module, but you
-omitted the name of the module.  Consult L<perlrun> for full details
-about C<-M>.
+(F) The C<-M> or C<-m> options say that Perl should load some module, but
+you omitted the name of the module.  Consult L<perlrun> for full details
+about C<-M> and C<-m>.
 
 =item msg%s not implemented