From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 21 Jan 2009 15:30:05 +0000 (+0000)
Subject: Correct the form of the flags passed to perl_get_sv() in threads.xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8583b25748abc73adb4164e557462c026e44fbbe;p=p5sagit%2Fp5-mst-13.2.git

Correct the form of the flags passed to perl_get_sv() in threads.xs
---

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index cb461cc..a15f7ec 100644
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -356,7 +356,7 @@ S_good_stack_size(pTHX_ IV stack_size)
 #  endif
         if ((long)MY_POOL.page_size < 0) {
             if (errno) {
-                SV * const error = get_sv("@", FALSE);
+                SV * const error = get_sv("@", 0);
                 (void)SvUPGRADE(error, SVt_PV);
                 Perl_croak(aTHX_ "PANIC: sysconf: %s", SvPV_nolen(error));
             } else {
@@ -870,7 +870,7 @@ ithread_create(...)
             /* threads->create() */
             classname = (char *)SvPV_nolen(ST(0));
             stack_size = MY_POOL.default_stack_size;
-            thread_exit_only = get_sv("threads::thread_exit_only", TRUE);
+            thread_exit_only = get_sv("threads::thread_exit_only", GV_ADD);
             exit_opt = (SvTRUE(thread_exit_only))
                                     ? PERL_ITHR_THREAD_EXIT_ONLY : 0;
         }