Compare commits
No commits in common. 'c9' and 'c10-beta' have entirely different histories.
@ -0,0 +1,48 @@
|
||||
From 25d469721e26fbc7afd670776ae9523013e9fdf5 Mon Sep 17 00:00:00 2001
|
||||
From: Jitka Plesnikova <jplesnik@redhat.com>
|
||||
Date: Thu, 6 May 2021 10:38:30 +0200
|
||||
Subject: [PATCH] Upgrade to 1.62
|
||||
|
||||
---
|
||||
lib/threads/shared.pm | 4 ++--
|
||||
shared.xs | 2 +-
|
||||
2 files changed, 3 insertions(+), 3 deletions(-)
|
||||
|
||||
diff --git a/lib/threads/shared.pm b/lib/threads/shared.pm
|
||||
index bd0e437..3674d83 100644
|
||||
--- a/lib/threads/shared.pm
|
||||
+++ b/lib/threads/shared.pm
|
||||
@@ -8,7 +8,7 @@ use Config;
|
||||
|
||||
use Scalar::Util qw(reftype refaddr blessed);
|
||||
|
||||
-our $VERSION = '1.61'; # Please update the pod, too.
|
||||
+our $VERSION = '1.62'; # Please update the pod, too.
|
||||
my $XS_VERSION = $VERSION;
|
||||
$VERSION = eval $VERSION;
|
||||
|
||||
@@ -196,7 +196,7 @@ threads::shared - Perl extension for sharing data structures between threads
|
||||
|
||||
=head1 VERSION
|
||||
|
||||
-This document describes threads::shared version 1.61
|
||||
+This document describes threads::shared version 1.62
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
diff --git a/shared.xs b/shared.xs
|
||||
index 858c6d6..4931a61 100644
|
||||
--- a/shared.xs
|
||||
+++ b/shared.xs
|
||||
@@ -1183,7 +1183,7 @@ sharedsv_array_mg_free(pTHX_ SV *sv, MAGIC *mg)
|
||||
* This is called when perl is about to access an element of
|
||||
* the array -
|
||||
*/
|
||||
-#if PERL_VERSION >= 11
|
||||
+#if PERL_VERSION_GE(5,11,0)
|
||||
static int
|
||||
sharedsv_array_mg_copy(pTHX_ SV *sv, MAGIC* mg,
|
||||
SV *nsv, const char *name, I32 namlen)
|
||||
--
|
||||
2.30.2
|
||||
|
||||
@ -0,0 +1,154 @@
|
||||
From ff20adba57602ad3ae936eff6718f354d7352f1d Mon Sep 17 00:00:00 2001
|
||||
From: Jitka Plesnikova <jplesnik@redhat.com>
|
||||
Date: Thu, 12 May 2022 14:53:08 +0200
|
||||
Subject: [PATCH] Upgrade to 1.64
|
||||
|
||||
---
|
||||
lib/threads/shared.pm | 4 +--
|
||||
shared.xs | 23 +++++++-------
|
||||
t/pod.t | 70 -------------------------------------------
|
||||
3 files changed, 13 insertions(+), 84 deletions(-)
|
||||
delete mode 100644 t/pod.t
|
||||
|
||||
diff --git a/lib/threads/shared.pm b/lib/threads/shared.pm
|
||||
index 3674d83..1fd2899 100644
|
||||
--- a/lib/threads/shared.pm
|
||||
+++ b/lib/threads/shared.pm
|
||||
@@ -8,7 +8,7 @@ use Config;
|
||||
|
||||
use Scalar::Util qw(reftype refaddr blessed);
|
||||
|
||||
-our $VERSION = '1.62'; # Please update the pod, too.
|
||||
+our $VERSION = '1.64'; # Please update the pod, too.
|
||||
my $XS_VERSION = $VERSION;
|
||||
$VERSION = eval $VERSION;
|
||||
|
||||
@@ -196,7 +196,7 @@ threads::shared - Perl extension for sharing data structures between threads
|
||||
|
||||
=head1 VERSION
|
||||
|
||||
-This document describes threads::shared version 1.62
|
||||
+This document describes threads::shared version 1.64
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
diff --git a/shared.xs b/shared.xs
|
||||
index 4931a61..6a7f03c 100644
|
||||
--- a/shared.xs
|
||||
+++ b/shared.xs
|
||||
@@ -824,10 +824,7 @@ sharedsv_scalar_store(pTHX_ SV *sv, SV *ssv)
|
||||
* that any previous contents of ssv are correctly freed
|
||||
* by sv_setsv(). Not sure if there is a better, API-legal way
|
||||
* to achieve this */
|
||||
- tmpref = newSV_type(SVt_RV);
|
||||
- SvRV_set(tmpref, sobj);
|
||||
- SvROK_on(tmpref);
|
||||
- SvREFCNT_inc_simple_NN(sobj);
|
||||
+ tmpref = newRV_inc(sobj);
|
||||
sv_setsv_nomg(ssv, tmpref);
|
||||
SvREFCNT_dec_NN(tmpref);
|
||||
|
||||
@@ -1296,14 +1293,16 @@ static void
|
||||
Perl_sharedsv_init(pTHX)
|
||||
{
|
||||
dTHXc;
|
||||
- PL_sharedsv_space = perl_alloc();
|
||||
- perl_construct(PL_sharedsv_space);
|
||||
- /* The pair above leaves us in shared context (what dTHX would get),
|
||||
- * but aTHX still points to caller context */
|
||||
- aTHX = PL_sharedsv_space;
|
||||
- LEAVE; /* This balances the ENTER at the end of perl_construct. */
|
||||
- PERL_SET_CONTEXT((aTHX = caller_perl));
|
||||
- recursive_lock_init(aTHX_ &PL_sharedsv_lock);
|
||||
+ if (!PL_sharedsv_space) {
|
||||
+ PL_sharedsv_space = perl_alloc();
|
||||
+ perl_construct(PL_sharedsv_space);
|
||||
+ /* The pair above leaves us in shared context (what dTHX would get),
|
||||
+ * but aTHX still points to caller context */
|
||||
+ aTHX = PL_sharedsv_space;
|
||||
+ LEAVE; /* This balances the ENTER at the end of perl_construct. */
|
||||
+ PERL_SET_CONTEXT((aTHX = caller_perl));
|
||||
+ recursive_lock_init(aTHX_ &PL_sharedsv_lock);
|
||||
+ }
|
||||
PL_lockhook = &Perl_sharedsv_locksv;
|
||||
PL_sharehook = &Perl_sharedsv_share;
|
||||
#ifdef PL_destroyhook
|
||||
diff --git a/t/pod.t b/t/pod.t
|
||||
deleted file mode 100644
|
||||
index 5d0cb42..0000000
|
||||
--- a/t/pod.t
|
||||
+++ /dev/null
|
||||
@@ -1,70 +0,0 @@
|
||||
-use strict;
|
||||
-use warnings;
|
||||
-
|
||||
-use Test::More;
|
||||
-if ($ENV{RUN_MAINTAINER_TESTS}) {
|
||||
- plan 'tests' => 3;
|
||||
-} else {
|
||||
- plan 'skip_all' => 'Module maintainer tests';
|
||||
-}
|
||||
-
|
||||
-SKIP: {
|
||||
- if (! eval 'use Test::Pod 1.26; 1') {
|
||||
- skip('Test::Pod 1.26 required for testing POD', 1);
|
||||
- }
|
||||
-
|
||||
- pod_file_ok('lib/threads/shared.pm');
|
||||
-}
|
||||
-
|
||||
-SKIP: {
|
||||
- if (! eval 'use Test::Pod::Coverage 1.08; 1') {
|
||||
- skip('Test::Pod::Coverage 1.08 required for testing POD coverage', 1);
|
||||
- }
|
||||
-
|
||||
- pod_coverage_ok('threads::shared',
|
||||
- {
|
||||
- 'trustme' => [
|
||||
- ],
|
||||
- 'private' => [
|
||||
- qr/^import$/,
|
||||
- ]
|
||||
- }
|
||||
- );
|
||||
-}
|
||||
-
|
||||
-SKIP: {
|
||||
- if (! eval 'use Test::Spelling; 1') {
|
||||
- skip('Test::Spelling required for testing POD spelling', 1);
|
||||
- }
|
||||
- if (system('aspell help >/dev/null 2>&1')) {
|
||||
- skip("'aspell' required for testing POD spelling", 1);
|
||||
- }
|
||||
- set_spell_cmd('aspell list --lang=en');
|
||||
- add_stopwords(<DATA>);
|
||||
- pod_file_spelling_ok('lib/threads/shared.pm', 'shared.pm spelling');
|
||||
- unlink("/home/$ENV{'USER'}/en.prepl", "/home/$ENV{'USER'}/en.pws");
|
||||
-}
|
||||
-
|
||||
-exit(0);
|
||||
-
|
||||
-__DATA__
|
||||
-
|
||||
-Artur
|
||||
-Hedden
|
||||
-
|
||||
-cpan
|
||||
-CPAN
|
||||
-CONDVAR
|
||||
-LOCKVAR
|
||||
-refcnt
|
||||
-variable's
|
||||
-destructor
|
||||
-destructors
|
||||
-Destructors
|
||||
-
|
||||
-perlfunc
|
||||
-dualvar
|
||||
-SV
|
||||
-
|
||||
-MetaCPAN
|
||||
-__END__
|
||||
--
|
||||
2.34.3
|
||||
|
||||
@ -0,0 +1,90 @@
|
||||
From dca84f1765496c5beb5ac418286c588eb8c268d9 Mon Sep 17 00:00:00 2001
|
||||
From: Jitka Plesnikova <jplesnik@redhat.com>
|
||||
Date: Thu, 18 May 2023 19:26:24 +0200
|
||||
Subject: [PATCH] Upgrade to 1.68
|
||||
|
||||
---
|
||||
lib/threads/shared.pm | 4 ++--
|
||||
shared.xs | 21 +++++++++------------
|
||||
2 files changed, 11 insertions(+), 14 deletions(-)
|
||||
|
||||
diff --git a/lib/threads/shared.pm b/lib/threads/shared.pm
|
||||
index 1fd2899..6e67acd 100644
|
||||
--- a/lib/threads/shared.pm
|
||||
+++ b/lib/threads/shared.pm
|
||||
@@ -8,7 +8,7 @@ use Config;
|
||||
|
||||
use Scalar::Util qw(reftype refaddr blessed);
|
||||
|
||||
-our $VERSION = '1.64'; # Please update the pod, too.
|
||||
+our $VERSION = '1.68'; # Please update the pod, too.
|
||||
my $XS_VERSION = $VERSION;
|
||||
$VERSION = eval $VERSION;
|
||||
|
||||
@@ -196,7 +196,7 @@ threads::shared - Perl extension for sharing data structures between threads
|
||||
|
||||
=head1 VERSION
|
||||
|
||||
-This document describes threads::shared version 1.64
|
||||
+This document describes threads::shared version 1.68
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
diff --git a/shared.xs b/shared.xs
|
||||
index 6a7f03c..f78542d 100644
|
||||
--- a/shared.xs
|
||||
+++ b/shared.xs
|
||||
@@ -40,7 +40,7 @@
|
||||
* proxy PVLV element with attached element magic.
|
||||
*
|
||||
* Pointers to the shared SV are squirrelled away in the mg->mg_ptr field
|
||||
- * of magic (with mg_len == 0), and in the IV2PTR(SvIV(sv)) field of tied
|
||||
+ * of magic (with mg_len == 0), and in the INT2PTR(SvIV(sv)) field of tied
|
||||
* object SVs. These pointers have to be hidden like this because they
|
||||
* cross interpreter boundaries, and we don't want sv_clear() and friends
|
||||
* following them.
|
||||
@@ -130,14 +130,11 @@
|
||||
#include "EXTERN.h"
|
||||
#include "perl.h"
|
||||
#include "XSUB.h"
|
||||
-#ifdef HAS_PPPORT_H
|
||||
-# define NEED_sv_2pv_flags
|
||||
-# define NEED_vnewSVpvf
|
||||
-# define NEED_warner
|
||||
-# define NEED_newSVpvn_flags
|
||||
-# include "ppport.h"
|
||||
-# include "shared.h"
|
||||
-#endif
|
||||
+#define NEED_sv_2pv_flags
|
||||
+#define NEED_vnewSVpvf
|
||||
+#define NEED_warner
|
||||
+#define NEED_newSVpvn_flags
|
||||
+#include "ppport.h"
|
||||
|
||||
#ifndef CLANG_DIAG_IGNORE
|
||||
# define CLANG_DIAG_IGNORE(x)
|
||||
@@ -704,10 +701,10 @@ Perl_sharedsv_cond_timedwait(perl_cond *cond, perl_mutex *mut, double abs)
|
||||
abs -= (NV)ts.tv_sec;
|
||||
ts.tv_nsec = (long)(abs * 1000000000.0);
|
||||
|
||||
- CLANG_DIAG_IGNORE_STMT(-Wthread-safety);
|
||||
+ CLANG_DIAG_IGNORE(-Wthread-safety)
|
||||
/* warning: calling function 'pthread_cond_timedwait' requires holding mutex 'mut' exclusively [-Wthread-safety-analysis] */
|
||||
switch (pthread_cond_timedwait(cond, mut, &ts)) {
|
||||
- CLANG_DIAG_RESTORE_STMT;
|
||||
+ CLANG_DIAG_RESTORE
|
||||
|
||||
case 0: got_it = 1; break;
|
||||
case ETIMEDOUT: break;
|
||||
@@ -1145,7 +1142,7 @@ sharedsv_array_mg_CLEAR(pTHX_ SV *sv, MAGIC *mg)
|
||||
I32 items = isav ? AvFILLp((AV *)ssv) + 1 : 0;
|
||||
HE *iter;
|
||||
if (!isav) hv_iterinit((HV *)ssv);
|
||||
- while (isav ? items-- : !!(iter = hv_iternext((HV *)ssv))) {
|
||||
+ while (isav ? items-- : cBOOL(iter = hv_iternext((HV *)ssv))) {
|
||||
SV *sv = isav ? *svp++ : HeVAL(iter);
|
||||
if (!sv) continue;
|
||||
if ( (SvOBJECT(sv) || (SvROK(sv) && (sv = SvRV(sv))))
|
||||
--
|
||||
2.40.1
|
||||
|
||||
@ -0,0 +1,39 @@
|
||||
From 19d50c0cc8db9e17816d8f9ee2bc89968ec4ffc2 Mon Sep 17 00:00:00 2001
|
||||
From: Jitka Plesnikova <jplesnik@redhat.com>
|
||||
Date: Thu, 9 May 2024 16:16:42 +0200
|
||||
Subject: [PATCH] Upgrade to 1.69
|
||||
|
||||
---
|
||||
lib/threads/shared.pm | 2 +-
|
||||
shared.xs | 2 +-
|
||||
2 files changed, 2 insertions(+), 2 deletions(-)
|
||||
|
||||
diff --git a/lib/threads/shared.pm b/lib/threads/shared.pm
|
||||
index 6e67acd..fef27ab 100644
|
||||
--- a/lib/threads/shared.pm
|
||||
+++ b/lib/threads/shared.pm
|
||||
@@ -8,7 +8,7 @@ use Config;
|
||||
|
||||
use Scalar::Util qw(reftype refaddr blessed);
|
||||
|
||||
-our $VERSION = '1.68'; # Please update the pod, too.
|
||||
+our $VERSION = '1.69'; # Please update the pod, too.
|
||||
my $XS_VERSION = $VERSION;
|
||||
$VERSION = eval $VERSION;
|
||||
|
||||
diff --git a/shared.xs b/shared.xs
|
||||
index f78542d..938f963 100644
|
||||
--- a/shared.xs
|
||||
+++ b/shared.xs
|
||||
@@ -697,7 +697,7 @@ Perl_sharedsv_cond_timedwait(perl_cond *cond, perl_mutex *mut, double abs)
|
||||
struct timespec ts;
|
||||
int got_it = 0;
|
||||
|
||||
- ts.tv_sec = (long)abs;
|
||||
+ ts.tv_sec = (time_t)abs;
|
||||
abs -= (NV)ts.tv_sec;
|
||||
ts.tv_nsec = (long)(abs * 1000000000.0);
|
||||
|
||||
--
|
||||
2.45.0
|
||||
|
||||
Loading…
Reference in new issue