This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
util.c: Missing semicolon with rarely used compile ops
authorKarl Williamson <khw@cpan.org>
Tue, 3 Sep 2019 15:46:28 +0000 (09:46 -0600)
committerKarl Williamson <khw@cpan.org>
Wed, 25 Sep 2019 03:07:48 +0000 (21:07 -0600)
util.c

diff --git a/util.c b/util.c
index 376cc8a..76f6ef4 100644 (file)
--- a/util.c
+++ b/util.c
@@ -3360,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;