export win32_async_check or Perl_despatch_signals

Message-ID: <3C3F756C.21561.2E2A9CE@localhost>

p4raw-id: //depot/perl@14203

diff --git a/embed.fnc b/embed.fnc
index e534f52..729f914 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -556,7 +556,7 @@ Apd |I32    |call_argv      |const char* sub_name|I32 flags|char** argv
 Apd    |I32    |call_method    |const char* methname|I32 flags
 Apd    |I32    |call_pv        |const char* sub_name|I32 flags
 Apd    |I32    |call_sv        |SV* sv|I32 flags
-p      |void   |despatch_signals
+Ap     |void   |despatch_signals
 Apd    |SV*    |eval_pv        |const char* p|I32 croak_on_error
 Apd    |I32    |eval_sv        |SV* sv|I32 flags
 Apd    |SV*    |get_sv         |const char* name|I32 create

diff --git a/global.sym b/global.sym
index 4710ebb..5f0c9de 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -318,6 +318,7 @@ Perl_call_argv
 Perl_call_method
 Perl_call_pv
 Perl_call_sv
+Perl_despatch_signals
 Perl_eval_pv
 Perl_eval_sv
 Perl_get_sv

diff --git a/makedef.pl b/makedef.pl
index 9f490e0..e2cc21b 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -780,6 +780,7 @@ if ($PLATFORM eq 'win32') {
                            Perl_thread_create
                            Perl_win32_init
                            RunPerl
+                           win32_async_check
                            win32_errno
                            win32_environ
                            win32_abort