From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 2 Nov 2004 08:18:15 +0000 (+0000)
Subject: Reformulate an error
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9e81e6a1d25bde90d61da3e28538c936bc2133ae;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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