update perldiag for change#4707

p4raw-link: @4707 on //depot/perl: 0df16ed7435a5bd0cc9e44b33066360b99ad12b5

p4raw-id: //depot/perl@4708

diff --git a/perl.c b/perl.c
index 7c49f14..95ec5e1 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -851,7 +851,7 @@ S_parse_body(pTHX_ va_list args)
                Safefree(p);
            }
            else
-               Perl_croak(aTHX_ "No argument specified for -I");
+               Perl_croak(aTHX_ "No directory specified for -I");
            break;
        case 'P':
            forbid_setid("-P");
@@ -1763,7 +1763,7 @@ Perl_moreswitches(pTHX_ char *s)
                s++;
        }
        else
-           Perl_croak(aTHX_ "No argument specified for -I");
+           Perl_croak(aTHX_ "No directory specified for -I");
        return s;
     case 'l':
        PL_minus_l = TRUE;

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index a76d8f0..f47ae5a 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -1904,6 +1904,11 @@ See L<perlsec>.
 
 (F) A setuid script can't be specified by the user.
 
+=item No %s specified for -%c
+
+(F) The indicated command line switch needs a mandatory argument, but
+you haven't specified one.
+
 =item No comma allowed after %s
 
 (F) A list operator that has a filehandle or "indirect object" is not
@@ -1988,10 +1993,10 @@ your system.
 (F) Configure didn't find anything resembling the setreuid() call for
 your system.
 
-=item No space allowed after B<-I>
+=item No space allowed after -%c
 
-(F) The argument to B<-I> must follow the B<-I> immediately with no
-intervening space.
+(F) The argument to the indicated command line switch must follow immediately
+after the switch, without intervening spaces.
 
 =item No such pseudo-hash field "%s"