This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
#2133 fallout.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 30 Oct 1998 09:12:59 +0000 (09:12 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 30 Oct 1998 09:12:59 +0000 (09:12 +0000)
p4raw-id: //depot/cfgperl@2141

doio.c
ext/POSIX/POSIX.xs

diff --git a/doio.c b/doio.c
index 6dc113b..f0f7aa7 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -1518,7 +1518,9 @@ do_ipcctl(I32 optype, SV **mark, SV **sp)
            a = SvPV(astr, len);
            if (len != infosize)
                croak("Bad arg length for %s, is %lu, should be %ld",
-                       op_desc[optype], (unsigned long)len, (long)infosize);
+                     PL_op_desc[optype],
+                     (unsigned long)len,
+                     (long)infosize);
        }
     }
     else
index 7b97586..7c70bca 100644 (file)
@@ -3176,8 +3176,8 @@ sigaction(sig, action, oldaction = 0)
            POSIX__SigSet sigset;
            SV** svp;
            SV** sigsvp = hv_fetch(GvHVn(PL_siggv),
-                                sig_name[sig],
-                                strlen(sig_name[sig]),
+                                PL_sig_name[sig],
+                                strlen(PL_sig_name[sig]),
                                 TRUE);
 
            /* Remember old handler name if desired. */