From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 14 May 2002 17:27:26 +0000 (+0000)
Subject: The #16592 needs this.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ba4b24b082913a3af46b587918808e01e2ec147;p=p5sagit%2Fp5-mst-13.2.git

The #16592 needs this.

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

diff --git a/embedvar.h b/embedvar.h
index 3c12a6a..95e70b9 100644
--- a/embedvar.h
+++ b/embedvar.h
@@ -388,6 +388,7 @@
 #define PL_sh_path		(PERL_GET_INTERP->Ish_path)
 #define PL_sig_pending		(PERL_GET_INTERP->Isig_pending)
 #define PL_sighandlerp		(PERL_GET_INTERP->Isighandlerp)
+#define PL_sort_RealCmp		(PERL_GET_INTERP->Isort_RealCmp)
 #define PL_splitstr		(PERL_GET_INTERP->Isplitstr)
 #define PL_srand_called		(PERL_GET_INTERP->Isrand_called)
 #define PL_statusvalue		(PERL_GET_INTERP->Istatusvalue)
@@ -689,6 +690,7 @@
 #define PL_sh_path		(vTHX->Ish_path)
 #define PL_sig_pending		(vTHX->Isig_pending)
 #define PL_sighandlerp		(vTHX->Isighandlerp)
+#define PL_sort_RealCmp		(vTHX->Isort_RealCmp)
 #define PL_splitstr		(vTHX->Isplitstr)
 #define PL_srand_called		(vTHX->Isrand_called)
 #define PL_statusvalue		(vTHX->Istatusvalue)
@@ -993,6 +995,7 @@
 #define PL_Ish_path		PL_sh_path
 #define PL_Isig_pending		PL_sig_pending
 #define PL_Isighandlerp		PL_sighandlerp
+#define PL_Isort_RealCmp	PL_sort_RealCmp
 #define PL_Isplitstr		PL_splitstr
 #define PL_Isrand_called	PL_srand_called
 #define PL_Istatusvalue		PL_statusvalue
diff --git a/perlapi.h b/perlapi.h
index d04bab7..693689f 100644
--- a/perlapi.h
+++ b/perlapi.h
@@ -504,6 +504,8 @@ END_EXTERN_C
 #define PL_sig_pending		(*Perl_Isig_pending_ptr(aTHX))
 #undef  PL_sighandlerp
 #define PL_sighandlerp		(*Perl_Isighandlerp_ptr(aTHX))
+#undef  PL_sort_RealCmp
+#define PL_sort_RealCmp		(*Perl_Isort_RealCmp_ptr(aTHX))
 #undef  PL_splitstr
 #define PL_splitstr		(*Perl_Isplitstr_ptr(aTHX))
 #undef  PL_srand_called