make module name mandatory after -M switch; reorder perldiag

alphabetically (from Mark-Jason Dominus)

p4raw-id: //depot/perl@5945

1 files changed, 2 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 04544b51e3..c4bd075815 100644
--- a/perl.c
+++ b/perl.c
@@ -2135,6 +2135,8 @@ Perl_moreswitches(pTHX_ char *s)
 		    sv_catpv( sv, " ()");
 		}
 	    } else {
+                if (s == start)
+                    Perl_croak(aTHX_ "Module name required with -M option");
 		sv_catpvn(sv, start, s-start);
 		sv_catpv(sv, " split(/,/,q{");
 		sv_catpv(sv, ++s);