This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
replace direct call to sighandler() with (*PL_sighandlerp)()
authorGurusamy Sarathy <gsar@cpan.org>
Fri, 5 May 2000 01:33:09 +0000 (01:33 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Fri, 5 May 2000 01:33:09 +0000 (01:33 +0000)
p4raw-id: //depot/perl@6067

win32/win32.c

index e10b115..008d7e0 100644 (file)
@@ -1757,7 +1757,7 @@ static VOID CALLBACK TimerProc(HWND win, UINT msg, UINT id, DWORD time)
     dTHXo;
     KillTimer(NULL,timerid);
     timerid=0;  
-    sighandler(14);
+    CALL_FPTR(PL_sighandlerp)(14);
 }
 #endif /* !PERL_OBJECT */