This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Argh. At least AIX builds choke because of this.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 10 Jul 2003 14:17:59 +0000 (14:17 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 10 Jul 2003 14:17:59 +0000 (14:17 +0000)
p4raw-id: //depot/perl@20112

embedvar.h
intrpvar.h
perlapi.h

index dcb980a..f29bb54 100644 (file)
 #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)
 #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
index 6d77cec..a90ada2 100644 (file)
@@ -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 */
index 0f56a0a..0137f7c 100644 (file)
--- 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