diff options
| author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2021-06-02 23:37:53 +0100 |
|---|---|---|
| committer | Paul Evans <leonerd@leonerd.org.uk> | 2021-07-22 17:33:16 +0100 |
| commit | a8769738d281c6b57a291bd3f605e304ec825799 (patch) | |
| tree | 87fa7bc62b4480a6d26e7c65b40e90dc08b2297c | |
| parent | 62efcf1758c98de9e72a85706918a91a0b176f26 (diff) | |
| download | perl-a8769738d281c6b57a291bd3f605e304ec825799.tar.gz | |
Use G_LIST in dist/threads
| -rw-r--r-- | dist/threads/lib/threads.pm | 4 | ||||
| -rw-r--r-- | dist/threads/threads.xs | 16 |
2 files changed, 10 insertions, 10 deletions
diff --git a/dist/threads/lib/threads.pm b/dist/threads/lib/threads.pm index 4453a8d48e..f84a294ba9 100644 --- a/dist/threads/lib/threads.pm +++ b/dist/threads/lib/threads.pm @@ -5,7 +5,7 @@ use 5.008; use strict; use warnings; -our $VERSION = '2.26'; # remember to update version in POD! +our $VERSION = '2.27'; # remember to update version in POD! my $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -134,7 +134,7 @@ threads - Perl interpreter-based threads =head1 VERSION -This document describes threads version 2.26 +This document describes threads version 2.27 =head1 WARNING diff --git a/dist/threads/threads.xs b/dist/threads/threads.xs index e544ebad2f..9c8072d9f5 100644 --- a/dist/threads/threads.xs +++ b/dist/threads/threads.xs @@ -1115,7 +1115,7 @@ ithread_create(...) case 'A': case 'l': case 'L': - context = G_ARRAY; + context = G_LIST; break; case 's': case 'S': @@ -1130,11 +1130,11 @@ ithread_create(...) } } else if ((svp = hv_fetchs(specs, "array", 0))) { if (SvTRUE(*svp)) { - context = G_ARRAY; + context = G_LIST; } } else if ((svp = hv_fetchs(specs, "list", 0))) { if (SvTRUE(*svp)) { - context = G_ARRAY; + context = G_LIST; } } else if ((svp = hv_fetchs(specs, "scalar", 0))) { if (SvTRUE(*svp)) { @@ -1156,7 +1156,7 @@ ithread_create(...) if (context == -1) { context = GIMME_V; /* Implicit context */ } else { - context |= (GIMME_V & (~(G_ARRAY|G_SCALAR|G_VOID))); + context |= (GIMME_V & (~(G_LIST|G_SCALAR|G_VOID))); } /* Create thread */ @@ -1201,7 +1201,7 @@ ithread_list(...) classname = (char *)SvPV_nolen(ST(0)); /* Calling context */ - list_context = (GIMME_V == G_ARRAY); + list_context = (GIMME_V == G_LIST); /* Running or joinable parameter */ if (items > 1) { @@ -1726,9 +1726,9 @@ ithread_wantarray(...) CODE: PERL_UNUSED_VAR(items); thread = S_SV_to_ithread(aTHX_ ST(0)); - ST(0) = ((thread->gimme & G_WANT) == G_ARRAY) ? &PL_sv_yes : - ((thread->gimme & G_WANT) == G_VOID) ? &PL_sv_undef - /* G_SCALAR */ : &PL_sv_no; + ST(0) = ((thread->gimme & G_WANT) == G_LIST) ? &PL_sv_yes : + ((thread->gimme & G_WANT) == G_VOID) ? &PL_sv_undef + /* G_SCALAR */ : &PL_sv_no; /* XSRETURN(1); - implied */ |