Change (l)stat’s prototype from * to ;*

Since the argument is optional, we need a semicolon.

This commit accomplishes that by setting the OA_OPTIONAL flag for the
appropriate  entries in PL_opargs.  This should not affect anything
else, as ck_ftst (the check routine for [l]stat) doesn’t even look at
PL_opargs.

It also has to tweak the prototype-generation logic slightly, because
PL_opargs also has OA_DEFGV set.

I think this is insignificant enough not to warrant a delta entry.

1 files changed, 3 insertions, 1 deletions

diff --git a/op.c b/op.c
index b42069a634..0ab2d1e1e7 100644
--- a/op.c
+++ b/op.c
@@ -10314,7 +10314,9 @@ Perl_core_prototype(pTHX_ SV *sv, const char *name, const STRLEN len,
     defgv = PL_opargs[i] & OA_DEFGV;
     oa = PL_opargs[i] >> OASHIFT;
     while (oa) {
-	if (oa & OA_OPTIONAL && !seen_question && (!defgv || n)) {
+	if (oa & OA_OPTIONAL && !seen_question && (
+	      !defgv || n || (oa & (OA_OPTIONAL - 1)) == OA_FILEREF
+	)) {
 	    seen_question = 1;
 	    str[n++] = ';';
 	}