X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/df641d45a268b08d7dc0e486d67cf7f441b065ed..f6db508c3a3e235e965596e7ffa572be87a5f433:/util.c

diff --git a/util.c b/util.c
index 164326c..76f6ef4 100644
--- a/util.c
+++ b/util.c
@@ -2692,6 +2692,15 @@ dup2(int oldfd, int newfd)
 #ifndef PERL_MICRO
 #ifdef HAS_SIGACTION
 
+/*
+=for apidoc rsignal
+
+A wrapper for the C library L<signal(2)>.  Don't use the latter, as the Perl
+version knows things that interact with the rest of the perl interpreter.
+
+=cut
+*/
+
 Sighandler_t
 Perl_rsignal(pTHX_ int signo, Sighandler_t handler)
 {
@@ -3351,7 +3360,7 @@ Perl_get_context(void)
     dVAR;
 #  ifdef OLD_PTHREADS_API
     pthread_addr_t t;
-    int error = pthread_getspecific(PL_thr_key, &t)
+    int error = pthread_getspecific(PL_thr_key, &t);
     if (error)
 	Perl_croak_nocontext("panic: pthread_getspecific, error=%d", error);
     return (void*)t;