perldelta: another bug number

[perl5.git] / doio.c

diff --git a/doio.c b/doio.c
index b0c5a69..08a15b7 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -149,7 +149,8 @@ Perl_do_openn(pTHX_ GV *gv, register const char *oname, I32 len, int as_raw,
        int ismodifying;
 
        if (num_svs != 0) {
-            Perl_croak(aTHX_ "panic: sysopen with multiple args");
+           Perl_croak(aTHX_ "panic: sysopen with multiple args, num_svs=%ld",
+                      (long) num_svs);
        }
        /* It's not always
 
@@ -1336,12 +1337,13 @@ Perl_my_lstat_flags(pTHX_ const U32 flags)
                Perl_croak(aTHX_ no_prev_lstat);
            return PL_laststatval;
        }
+       PL_laststatval = -1;
        if (ckWARN(WARN_IO)) {
            Perl_warner(aTHX_ packWARN(WARN_IO),
                             "Use of -l on filehandle %"HEKf,
                              HEKfARG(GvENAME_HEK(cGVOP_gv)));
        }
-       return (PL_laststatval = -1);
+       return -1;
     }
     else if (PL_op->op_private & OPpFT_STACKED) {
       if (PL_laststype != OP_LSTAT)