diff --git a/.gitignore b/.gitignore index 3632a6f..19ad958 100644 --- a/.gitignore +++ b/.gitignore @@ -1 +1 @@ -SOURCES/threads-shared-1.59.tar.gz +threads-shared-1.59.tar.gz diff --git a/.perl-threads-shared.metadata b/.perl-threads-shared.metadata deleted file mode 100644 index 3d507a1..0000000 --- a/.perl-threads-shared.metadata +++ /dev/null @@ -1 +0,0 @@ -ae80152e37290e7a85890d0180f964cb5a01f4c1 SOURCES/threads-shared-1.59.tar.gz diff --git a/SPECS/perl-threads-shared.spec b/perl-threads-shared.spec similarity index 66% rename from SPECS/perl-threads-shared.spec rename to perl-threads-shared.spec index 99b295b..debb8fd 100644 --- a/SPECS/perl-threads-shared.spec +++ b/perl-threads-shared.spec @@ -1,10 +1,10 @@ %global base_version 1.59 Name: perl-threads-shared -Version: 1.60 -Release: 440%{?dist} +Version: 1.69 +Release: 511%{?dist} Summary: Perl extension for sharing data structures between threads -License: GPL+ or Artistic +License: GPL-1.0-or-later OR Artistic-1.0-Perl URL: https://metacpan.org/release/threads-shared Source0: https://cpan.metacpan.org/authors/id/J/JD/JDHEDDEN/threads-shared-%{base_version}.tar.gz # Unbundled from perl 5.29.10 @@ -12,6 +12,17 @@ Patch0: threads-shared-1.59-Upgrade-to-1.60.patch # Fix a memory leak when assigning a shared reference to a shared string # variable, in perl after 5.31.1 Patch1: threads-shared-1.60-threads-shared-fix-leak.patch +# Unbundled from perl 5.32.0 +Patch2: threads-shared-1.59-Upgrade-to-1.61.patch +# Unbundled from perl 5.34.0 +Patch3: threads-shared-1.61-Upgrade-to-1.62.patch +# Unbundled from perl 5.35.11 +Patch4: threads-shared-1.62-Upgrade-to-1.64.patch +# Unbundled from perl 5.37.11 +Patch5: threads-shared-1.64-Upgrade-to-1.68.patch +# Unbundled from perl 5.40.0-RC1 +Patch6: threads-shared-1.68-Upgrade-to-1.69.patch +BuildRequires: coreutils BuildRequires: findutils BuildRequires: gcc BuildRequires: make @@ -37,7 +48,6 @@ BuildRequires: perl(Test::More) BuildRequires: perl(POSIX) BuildRequires: perl(Time::HiRes) # Win32 not needed -Requires: perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version)) Requires: perl(Carp) Requires: perl(threads) >= 1.73 Requires: perl(XSLoader) @@ -50,32 +60,122 @@ thread gets a private copy of each existing variable. This module allows you to share variables across different threads (and pseudo-forks on Win32). It is used together with the threads module. +%package tests +Summary: Tests for %{name} +Requires: %{name} = %{?epoch:%{epoch}:}%{version}-%{release} +Requires: perl-Test-Harness +Requires: perl(POSIX) +Requires: perl(Time::HiRes) + +%description tests +Tests from %{name}. Execute them +with "%{_libexecdir}/%{name}/test". + %prep -%setup -q -n threads-shared-%{base_version} -%patch0 -p1 -%patch1 -p1 +%autosetup -p1 -n threads-shared-%{base_version} + +# Help generators to recognize Perl scripts +for F in t/*.t t/*pl; do + perl -i -MConfig -ple 'print $Config{startperl} if $. == 1 && !s{\A#!.*perl\b}{$Config{startperl}}' "$F" + chmod +x "$F" +done %build -perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 NO_PERLLOCAL=1 OPTIMIZE="$RPM_OPT_FLAGS" +perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 NO_PERLLOCAL=1 OPTIMIZE="%{optflags}" %{make_build} %install %{make_install} -find $RPM_BUILD_ROOT -type f -name '*.bs' -size 0 -delete -%{_fixperms} $RPM_BUILD_ROOT/* +find %{buildroot} -type f -name '*.bs' -size 0 -delete +%{_fixperms} %{buildroot}/* + +# Install tests +mkdir -p %{buildroot}%{_libexecdir}/%{name} +cp -a t %{buildroot}%{_libexecdir}/%{name} +cat > %{buildroot}%{_libexecdir}/%{name}/test << 'EOF' +#!/bin/sh +cd %{_libexecdir}/%{name} && exec prove -I . -j "$(getconf _NPROCESSORS_ONLN)" +EOF +chmod +x %{buildroot}%{_libexecdir}/%{name}/test %check +export HARNESS_OPTIONS=j$(perl -e 'if ($ARGV[0] =~ /.*-j([0-9][0-9]*).*/) {print $1} else {print 1}' -- '%{?_smp_mflags}') unset GIT_DIR PERL_BUILD_PACKAGING PERL_CORE PERL_RUNPERL_DEBUG \ RUN_MAINTAINER_TESTS make test %files %doc Changes examples README -%{perl_vendorarch}/auto/* +%{perl_vendorarch}/auto/threads* %{perl_vendorarch}/threads* -%{_mandir}/man3/* +%{_mandir}/man3/threads::shared* + +%files tests +%{_libexecdir}/%{name} %changelog +* Tue Oct 29 2024 Troy Dawson - 1.69-511 +- Bump release for October 2024 mass rebuild: + Resolves: RHEL-64018 + +* Thu Jul 18 2024 Jitka Plesnikova - 1.69-510 +- Increase release to favour standalone package + +* Thu Jul 18 2024 Jitka Plesnikova - 1.69-503 +- Upgrade to 1.69 as provided in perl-5.40.0-RC1 + +* Mon Jun 24 2024 Troy Dawson - 1.68-503 +- Bump release for June 2024 mass rebuild + +* Thu Jan 25 2024 Fedora Release Engineering - 1.68-502 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_40_Mass_Rebuild + +* Sun Jan 21 2024 Fedora Release Engineering - 1.68-501 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_40_Mass_Rebuild + +* Fri Jul 21 2023 Fedora Release Engineering - 1.68-500 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_39_Mass_Rebuild + +* Tue Jul 11 2023 Jitka Plesnikova - 1.68-499 +- Increase release to favour standalone package + +* Thu May 18 2023 Jitka Plesnikova - 1.68-1 +- Upgrade to 1.68 as provided in perl-5.37.11 +- Package tests + +* Fri Jan 20 2023 Fedora Release Engineering - 1.64-490 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_38_Mass_Rebuild + +* Fri Jul 22 2022 Fedora Release Engineering - 1.64-489 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_37_Mass_Rebuild + +* Mon May 30 2022 Jitka Plesnikova - 1.64-488 +- Increase release to favour standalone package + +* Thu May 12 2022 Jitka Plesnikova - 1.64-1 +- Upgrade to 1.64 as provided in perl-5.35.11 + +* Fri Jan 21 2022 Fedora Release Engineering - 1.62-479 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_36_Mass_Rebuild + +* Fri Jul 23 2021 Fedora Release Engineering - 1.62-478 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_35_Mass_Rebuild + +* Fri May 21 2021 Jitka Plesnikova - 1.62-477 +- Upgrade to 1.62 as provided in perl-5.34.0 + +* Wed Jan 27 2021 Fedora Release Engineering - 1.61-458 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_34_Mass_Rebuild + +* Tue Jul 28 2020 Fedora Release Engineering - 1.61-457 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_33_Mass_Rebuild + +* Mon Jun 22 2020 Jitka Plesnikova - 1.61-456 +- Upgrade to 1.61 as provided in perl-5.32.0 + +* Thu Jan 30 2020 Fedora Release Engineering - 1.60-441 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_32_Mass_Rebuild + * Fri Jul 26 2019 Fedora Release Engineering - 1.60-440 - Rebuilt for https://fedoraproject.org/wiki/Fedora_31_Mass_Rebuild @@ -241,7 +341,7 @@ make test * Wed Aug 17 2011 Marcela Mašláňová - 1.37-3 - change path on vendor, so our debuginfo are not conflicting with - perl core debuginfos + perl core debuginfos * Mon Jun 20 2011 Marcela Mašláňová - 1.37-2 - Perl mass rebuild diff --git a/sources b/sources new file mode 100644 index 0000000..111e611 --- /dev/null +++ b/sources @@ -0,0 +1 @@ +SHA512 (threads-shared-1.59.tar.gz) = 0dc84bc5c1d1cdd3fe70ab6c6fa571b4aa18c24ab6e036531d2ddcc2a8dea31aad05688c30d52b18ee07588bf3c5fee2b585471775bffd8b17c1411142adcdb7 diff --git a/SOURCES/threads-shared-1.59-Upgrade-to-1.60.patch b/threads-shared-1.59-Upgrade-to-1.60.patch similarity index 100% rename from SOURCES/threads-shared-1.59-Upgrade-to-1.60.patch rename to threads-shared-1.59-Upgrade-to-1.60.patch diff --git a/threads-shared-1.59-Upgrade-to-1.61.patch b/threads-shared-1.59-Upgrade-to-1.61.patch new file mode 100644 index 0000000..72e576b --- /dev/null +++ b/threads-shared-1.59-Upgrade-to-1.61.patch @@ -0,0 +1,57 @@ +From c48ee9c79eb7c4a36b7758fc4c3209ca0e5d759b Mon Sep 17 00:00:00 2001 +From: Jitka Plesnikova +Date: Tue, 21 Apr 2020 12:52:31 +0200 +Subject: [PATCH] Upgrade to 1.61 + +--- + lib/threads/shared.pm | 4 ++-- + t/stress.t | 4 ++-- + 2 files changed, 4 insertions(+), 4 deletions(-) + +diff --git a/lib/threads/shared.pm b/lib/threads/shared.pm +index 45ad154..bd0e437 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.60'; # Please update the pod, too. ++our $VERSION = '1.61'; # 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.60 ++This document describes threads::shared version 1.61 + + =head1 SYNOPSIS + +diff --git a/t/stress.t b/t/stress.t +index 1dd95e3..ccdeb0e 100644 +--- a/t/stress.t ++++ b/t/stress.t +@@ -12,7 +12,7 @@ BEGIN { + exit(0); + } + +- # http://lists.alioth.debian.org/pipermail/perl-maintainers/2011-June/002285.html ++ # https://lists.alioth.debian.org/pipermail/perl-maintainers/2011-June/002285.html + # There _is_ TLS support on m68k, but this stress test is overwhelming + # for the hardware + if ($^O eq 'linux' && $Config{archname} =~ /^m68k/) { +@@ -179,7 +179,7 @@ use threads::shared; + } elsif ($timeouts) { + # Frequently fails under MSWin32 due to deadlocking bug in Windows + # hence test is TODO under MSWin32 +- # http://rt.perl.org/rt3/Public/Bug/Display.html?id=41574 ++ # https://rt.perl.org/rt3/Public/Bug/Display.html?id=41574 + # http://support.microsoft.com/kb/175332 + if ($^O eq 'MSWin32') { + print("not ok 1 # TODO - not reliable under MSWin32\n") +-- +2.21.1 + diff --git a/SOURCES/threads-shared-1.60-threads-shared-fix-leak.patch b/threads-shared-1.60-threads-shared-fix-leak.patch similarity index 100% rename from SOURCES/threads-shared-1.60-threads-shared-fix-leak.patch rename to threads-shared-1.60-threads-shared-fix-leak.patch diff --git a/threads-shared-1.61-Upgrade-to-1.62.patch b/threads-shared-1.61-Upgrade-to-1.62.patch new file mode 100644 index 0000000..553e058 --- /dev/null +++ b/threads-shared-1.61-Upgrade-to-1.62.patch @@ -0,0 +1,48 @@ +From 25d469721e26fbc7afd670776ae9523013e9fdf5 Mon Sep 17 00:00:00 2001 +From: Jitka Plesnikova +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 + diff --git a/threads-shared-1.62-Upgrade-to-1.64.patch b/threads-shared-1.62-Upgrade-to-1.64.patch new file mode 100644 index 0000000..60b28d0 --- /dev/null +++ b/threads-shared-1.62-Upgrade-to-1.64.patch @@ -0,0 +1,154 @@ +From ff20adba57602ad3ae936eff6718f354d7352f1d Mon Sep 17 00:00:00 2001 +From: Jitka Plesnikova +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(); +- 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 + diff --git a/threads-shared-1.64-Upgrade-to-1.68.patch b/threads-shared-1.64-Upgrade-to-1.68.patch new file mode 100644 index 0000000..786e378 --- /dev/null +++ b/threads-shared-1.64-Upgrade-to-1.68.patch @@ -0,0 +1,90 @@ +From dca84f1765496c5beb5ac418286c588eb8c268d9 Mon Sep 17 00:00:00 2001 +From: Jitka Plesnikova +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 + diff --git a/threads-shared-1.68-Upgrade-to-1.69.patch b/threads-shared-1.68-Upgrade-to-1.69.patch new file mode 100644 index 0000000..14f25ba --- /dev/null +++ b/threads-shared-1.68-Upgrade-to-1.69.patch @@ -0,0 +1,39 @@ +From 19d50c0cc8db9e17816d8f9ee2bc89968ec4ffc2 Mon Sep 17 00:00:00 2001 +From: Jitka Plesnikova +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 +