From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 10 Jul 2003 14:17:59 +0000 (+0000)
Subject: Argh.  At least AIX builds choke because of this.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6f3a2bff8962a08390935b5974d219e8b377833e;p=p5sagit%2Fp5-mst-13.2.git

Argh.  At least AIX builds choke because of this.

p4raw-id: //depot/perl@20112
---

diff --git a/embedvar.h b/embedvar.h
index dcb980a..f29bb54 100644
--- a/embedvar.h
+++ b/embedvar.h
@@ -215,6 +215,7 @@
 #define PL_cryptseen		(vTHX->Icryptseen)
 #define PL_cshlen		(vTHX->Icshlen)
 #define PL_cshname		(vTHX->Icshname)
+#define PL_csighandlerp		(vTHX->Icsighandlerp)
 #define PL_curcopdb		(vTHX->Icurcopdb)
 #define PL_curstname		(vTHX->Icurstname)
 #define PL_custom_op_descs	(vTHX->Icustom_op_descs)
@@ -518,6 +519,7 @@
 #define PL_Icryptseen		PL_cryptseen
 #define PL_Icshlen		PL_cshlen
 #define PL_Icshname		PL_cshname
+#define PL_Icsighandlerp	PL_csighandlerp
 #define PL_Icurcopdb		PL_curcopdb
 #define PL_Icurstname		PL_curstname
 #define PL_Icustom_op_descs	PL_custom_op_descs
diff --git a/intrpvar.h b/intrpvar.h
index 6d77cec..a90ada2 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -525,6 +525,8 @@ PERLVARI(Ippid,		IV,		0)
 
 PERLVARI(Ihash_seed, UV, 0)		/* Hash initializer */
 
+PERLVAR(Icsighandlerp,	Sighandler_t)
+
 PERLVAR(IDBassertion,   SV *)
 
 PERLVARI(Icv_has_eval, I32, 0) /* PL_compcv includes an entereval or similar */
diff --git a/perlapi.h b/perlapi.h
index 0f56a0a..0137f7c 100644
--- a/perlapi.h
+++ b/perlapi.h
@@ -188,6 +188,8 @@ END_EXTERN_C
 #define PL_cshlen		(*Perl_Icshlen_ptr(aTHX))
 #undef  PL_cshname
 #define PL_cshname		(*Perl_Icshname_ptr(aTHX))
+#undef  PL_csighandlerp
+#define PL_csighandlerp		(*Perl_Icsighandlerp_ptr(aTHX))
 #undef  PL_curcopdb
 #define PL_curcopdb		(*Perl_Icurcopdb_ptr(aTHX))
 #undef  PL_curstname