Reformulate an error

(so the error message given by "perl -M" is a bit more
meaningful, as Jarkko pointed out)

p4raw-id: //depot/perl@23465

diff --git a/perl.c b/perl.c
index 65b02a0..1525df2 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -2678,7 +2678,7 @@ Perl_moreswitches(pTHX_ char *s)
            av_push(PL_preambleav, sv);
        }
        else
-           Perl_croak(aTHX_ "No space allowed after -%c", *(s-1));
+           Perl_croak(aTHX_ "Missing argument to -%c", *(s-1));
        return s;
     case 'n':
        PL_minus_n = TRUE;

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 71c3c26..ba0ad97 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -2152,6 +2152,11 @@ ended earlier on the current line.
 (W syntax) An underscore (underbar) in a numeric constant did not
 separate two digits.
 
+=item Missing argument to -%c
+
+(F) The argument to the indicated command line switch must follow
+immediately after the switch, without intervening spaces.
+
 =item Missing %sbrace%s on \N{}
 
 (F) Wrong syntax of character name literal C<\N{charname}> within
@@ -2440,11 +2445,6 @@ your system.
 (F) Configure didn't find anything resembling the setreuid() call for
 your system.
 
-=item No space allowed after -%c
-
-(F) The argument to the indicated command line switch must follow
-immediately after the switch, without intervening spaces.
-
 =item No %s specified for -%c
 
 (F) The indicated command line switch needs a mandatory argument, but