Upgrade to 1.9774 as provided in perl-5.37.11
This commit is contained in:
parent
0ee91ab19b
commit
d409dcfc12
|
@ -0,0 +1,166 @@
|
||||||
|
From 33cc1afd407885bd671f97ef6c7277f4ed31ac3c Mon Sep 17 00:00:00 2001
|
||||||
|
From: Jitka Plesnikova <jplesnik@redhat.com>
|
||||||
|
Date: Thu, 18 May 2023 20:18:16 +0200
|
||||||
|
Subject: [PATCH] Upgrade to 1.9774
|
||||||
|
|
||||||
|
---
|
||||||
|
Changes | 11 +++++++++++
|
||||||
|
HiRes.pm | 2 +-
|
||||||
|
HiRes.xs | 12 +++++-------
|
||||||
|
Makefile.PL | 20 ++++++++++++++++----
|
||||||
|
t/stat.t | 6 +++++-
|
||||||
|
5 files changed, 38 insertions(+), 13 deletions(-)
|
||||||
|
|
||||||
|
diff --git a/Changes b/Changes
|
||||||
|
index 96f058a..e63892a 100644
|
||||||
|
--- a/Changes
|
||||||
|
+++ b/Changes
|
||||||
|
@@ -4,6 +4,17 @@ Revision history for the Perl extension Time::HiRes.
|
||||||
|
|
||||||
|
- Remove obsolete vms code
|
||||||
|
- Use core version compare
|
||||||
|
+ - Use GIMME_V instead of the deprecated GIMME
|
||||||
|
+ - t/utime.t: dragonflybsd has only microsecond precision
|
||||||
|
+ - t/utime.t: dragonflybsd is noatime by default
|
||||||
|
+ - t/stat.t: skip testing access times on HaikuOS, it doesn't support
|
||||||
|
+ atime
|
||||||
|
+ - darwin: make sure the compiler can find the system perl headers
|
||||||
|
+ https://github.com/Perl/perl5/issues/20362
|
||||||
|
+ - darwin: make sure PERL_DARWIN is defined on darwin.
|
||||||
|
+ - don't compare stat and lstat atime if PERL_FILE_ATIME_CHANGES is set in
|
||||||
|
+ the environment.
|
||||||
|
+ https://github.com/Perl/perl5/issues/19321
|
||||||
|
|
||||||
|
1.9764 [2020-08-10]
|
||||||
|
- Fix a bunch of repeated-word typos
|
||||||
|
diff --git a/HiRes.pm b/HiRes.pm
|
||||||
|
index 7e21047..22660cb 100644
|
||||||
|
--- a/HiRes.pm
|
||||||
|
+++ b/HiRes.pm
|
||||||
|
@@ -50,7 +50,7 @@ our @EXPORT_OK = qw (usleep sleep ualarm alarm gettimeofday time tv_interval
|
||||||
|
stat lstat utime
|
||||||
|
);
|
||||||
|
|
||||||
|
-our $VERSION = '1.9770';
|
||||||
|
+our $VERSION = '1.9774';
|
||||||
|
our $XS_VERSION = $VERSION;
|
||||||
|
$VERSION = eval $VERSION;
|
||||||
|
|
||||||
|
diff --git a/HiRes.xs b/HiRes.xs
|
||||||
|
index 1eb7de3..e108848 100644
|
||||||
|
--- a/HiRes.xs
|
||||||
|
+++ b/HiRes.xs
|
||||||
|
@@ -19,10 +19,10 @@ extern "C" {
|
||||||
|
#include "perl.h"
|
||||||
|
#include "XSUB.h"
|
||||||
|
#include "reentr.h"
|
||||||
|
-#ifdef USE_PPPORT_H
|
||||||
|
+#if !defined(IS_SAFE_PATHNAME) && defined(TIME_HIRES_UTIME) && defined(HAS_UTIMENSAT)
|
||||||
|
#define NEED_ck_warner
|
||||||
|
-# include "ppport.h"
|
||||||
|
#endif
|
||||||
|
+#include "ppport.h"
|
||||||
|
#if defined(__CYGWIN__) && defined(HAS_W32API_WINDOWS_H)
|
||||||
|
# include <w32api/windows.h>
|
||||||
|
# define CYGWIN_WITH_W32API
|
||||||
|
@@ -263,8 +263,6 @@ _gettimeofday(pTHX_ struct timeval *tp, void *not_used)
|
||||||
|
static int
|
||||||
|
_clock_gettime(pTHX_ clockid_t clock_id, struct timespec *tp)
|
||||||
|
{
|
||||||
|
- FT_t ft;
|
||||||
|
-
|
||||||
|
switch (clock_id) {
|
||||||
|
case CLOCK_REALTIME: {
|
||||||
|
FT_t ft;
|
||||||
|
@@ -1193,7 +1191,7 @@ gettimeofday()
|
||||||
|
int status;
|
||||||
|
status = gettimeofday (&Tp, NULL);
|
||||||
|
if (status == 0) {
|
||||||
|
- if (GIMME == G_LIST) {
|
||||||
|
+ if (GIMME_V == G_LIST) {
|
||||||
|
EXTEND(sp, 2);
|
||||||
|
PUSHs(sv_2mortal(newSViv(Tp.tv_sec)));
|
||||||
|
PUSHs(sv_2mortal(newSViv(Tp.tv_usec)));
|
||||||
|
@@ -1250,7 +1248,7 @@ setitimer(which, seconds, interval = 0)
|
||||||
|
if (setitimer(which, &newit, &oldit) == 0) {
|
||||||
|
EXTEND(sp, 1);
|
||||||
|
PUSHs(sv_2mortal(newSVnv(TV2NV(oldit.it_value))));
|
||||||
|
- if (GIMME == G_LIST) {
|
||||||
|
+ if (GIMME_V == G_LIST) {
|
||||||
|
EXTEND(sp, 1);
|
||||||
|
PUSHs(sv_2mortal(newSVnv(TV2NV(oldit.it_interval))));
|
||||||
|
}
|
||||||
|
@@ -1270,7 +1268,7 @@ getitimer(which)
|
||||||
|
if (getitimer(which, &nowit) == 0) {
|
||||||
|
EXTEND(sp, 1);
|
||||||
|
PUSHs(sv_2mortal(newSVnv(TV2NV(nowit.it_value))));
|
||||||
|
- if (GIMME == G_LIST) {
|
||||||
|
+ if (GIMME_V == G_LIST) {
|
||||||
|
EXTEND(sp, 1);
|
||||||
|
PUSHs(sv_2mortal(newSVnv(TV2NV(nowit.it_interval))));
|
||||||
|
}
|
||||||
|
diff --git a/Makefile.PL b/Makefile.PL
|
||||||
|
index e5ba503..5803daf 100644
|
||||||
|
--- a/Makefile.PL
|
||||||
|
+++ b/Makefile.PL
|
||||||
|
@@ -68,8 +68,17 @@ __EOD__
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
- my $ccflags = $Config{'ccflags'} . ' ' . "-I$COREincdir"
|
||||||
|
- . ' -DPERL_NO_INLINE_FUNCTIONS';
|
||||||
|
+ my $ccflags = $Config{'ccflags'} . ' ';
|
||||||
|
+ my @osvers = split /\./, $Config{osvers};
|
||||||
|
+ if ($^O eq "darwin"
|
||||||
|
+ && $^X eq "/usr/bin/perl"
|
||||||
|
+ && $osvers[0] >= 18) {
|
||||||
|
+ $ccflags .= qq(-iwithsysroot "$COREincdir");
|
||||||
|
+ }
|
||||||
|
+ else {
|
||||||
|
+ $ccflags .= "-I$COREincdir"
|
||||||
|
+ }
|
||||||
|
+ $ccflags .= ' -DPERL_NO_INLINE_FUNCTIONS';
|
||||||
|
|
||||||
|
if ($^O eq 'VMS') {
|
||||||
|
$cccmd = "$Config{'cc'} /include=($COREincdir) $tmp.c";
|
||||||
|
@@ -841,6 +850,11 @@ EOM
|
||||||
|
print "NOT found.\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
+ if ($^O eq "darwin") {
|
||||||
|
+ # the system perl on darwin doesn't seem to include -DPERL_DARWIN
|
||||||
|
+ # which breaks setting up emulation
|
||||||
|
+ DEFINE("PERL_DARWIN");
|
||||||
|
+ }
|
||||||
|
|
||||||
|
if ($DEFINE) {
|
||||||
|
$DEFINE =~ s/^\s+//;
|
||||||
|
@@ -854,8 +868,6 @@ EOM
|
||||||
|
sub doMakefile {
|
||||||
|
my @makefileopts = ();
|
||||||
|
|
||||||
|
- DEFINE('USE_PPPORT_H') unless $ENV{PERL_CORE};
|
||||||
|
-
|
||||||
|
push (@makefileopts,
|
||||||
|
'NAME' => 'Time::HiRes',
|
||||||
|
'AUTHOR' => 'Jarkko Hietaniemi <jhi@iki.fi>',
|
||||||
|
diff --git a/t/stat.t b/t/stat.t
|
||||||
|
index 1f1fa96..2f72fdc 100644
|
||||||
|
--- a/t/stat.t
|
||||||
|
+++ b/t/stat.t
|
||||||
|
@@ -36,7 +36,11 @@ for (1..5) {
|
||||||
|
SKIP: {
|
||||||
|
if($^O eq "haiku") {
|
||||||
|
skip "testing stat access time on Haiku", 2;
|
||||||
|
- }
|
||||||
|
+ }
|
||||||
|
+ if ($ENV{PERL_FILE_ATIME_CHANGES}) {
|
||||||
|
+ # something else might access the file, changing atime
|
||||||
|
+ $lstat->[8] = $stat->[8];
|
||||||
|
+ }
|
||||||
|
is_deeply $lstat, $stat, "write: stat and lstat returned same values";
|
||||||
|
Time::HiRes::sleep(rand(0.1) + 0.1);
|
||||||
|
open(X, '<', $$);
|
||||||
|
--
|
||||||
|
2.40.1
|
||||||
|
|
|
@ -2,8 +2,8 @@
|
||||||
|
|
||||||
Name: perl-Time-HiRes
|
Name: perl-Time-HiRes
|
||||||
Epoch: 4
|
Epoch: 4
|
||||||
Version: 1.9770
|
Version: 1.9774
|
||||||
Release: 490%{?dist}
|
Release: 1%{?dist}
|
||||||
Summary: High resolution alarm, sleep, gettimeofday, interval timers
|
Summary: High resolution alarm, sleep, gettimeofday, interval timers
|
||||||
License: GPL-1.0-or-later OR Artistic-1.0-Perl
|
License: GPL-1.0-or-later OR Artistic-1.0-Perl
|
||||||
URL: https://metacpan.org/release/Time-HiRes
|
URL: https://metacpan.org/release/Time-HiRes
|
||||||
|
@ -12,6 +12,8 @@ Source0: https://cpan.metacpan.org/authors/id/A/AT/ATOOMIC/Time-HiRes-%{b
|
||||||
Patch0: Time-HiRes-1.9764-Upgrade-to-1.9767.patch
|
Patch0: Time-HiRes-1.9764-Upgrade-to-1.9767.patch
|
||||||
# Unbundled from perl 5.35.11
|
# Unbundled from perl 5.35.11
|
||||||
Patch1: Time-HiRes-1.9767-Upgrade-to-1.9770.patch
|
Patch1: Time-HiRes-1.9767-Upgrade-to-1.9770.patch
|
||||||
|
# Unbundled from perl 5.37.11
|
||||||
|
Patch2: Time-HiRes-1.9770-Upgrade-to-1.9774.patch
|
||||||
BuildRequires: coreutils
|
BuildRequires: coreutils
|
||||||
BuildRequires: findutils
|
BuildRequires: findutils
|
||||||
BuildRequires: gcc
|
BuildRequires: gcc
|
||||||
|
@ -45,18 +47,19 @@ high resolution time and timers.
|
||||||
|
|
||||||
%prep
|
%prep
|
||||||
%setup -q -n Time-HiRes-%{base_version}
|
%setup -q -n Time-HiRes-%{base_version}
|
||||||
%patch0 -p1
|
%patch -P0 -p1
|
||||||
%patch1 -p1
|
%patch -P1 -p1
|
||||||
|
%patch -P2 -p1
|
||||||
|
|
||||||
%build
|
%build
|
||||||
unset PERL_CORE
|
unset PERL_CORE
|
||||||
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}
|
%{make_build}
|
||||||
|
|
||||||
%install
|
%install
|
||||||
%{make_install}
|
%{make_install}
|
||||||
find $RPM_BUILD_ROOT -type f -name '*.bs' -size 0 -delete
|
find %{buildroot} -type f -name '*.bs' -size 0 -delete
|
||||||
%{_fixperms} $RPM_BUILD_ROOT/*
|
%{_fixperms} %{buildroot}/*
|
||||||
|
|
||||||
%check
|
%check
|
||||||
make test
|
make test
|
||||||
|
@ -65,9 +68,12 @@ make test
|
||||||
%doc Changes README TODO
|
%doc Changes README TODO
|
||||||
%{perl_vendorarch}/auto/*
|
%{perl_vendorarch}/auto/*
|
||||||
%{perl_vendorarch}/Time*
|
%{perl_vendorarch}/Time*
|
||||||
%{_mandir}/man3/*
|
%{_mandir}/man3/Time::HiRes*
|
||||||
|
|
||||||
%changelog
|
%changelog
|
||||||
|
* Thu May 18 2023 Jitka Plesnikova <jplesnik@redhat.com> - 4:1.9774-1
|
||||||
|
- Upgrade to 1.9774 as provided in perl-5.37.11
|
||||||
|
|
||||||
* Fri Jan 20 2023 Fedora Release Engineering <releng@fedoraproject.org> - 4:1.9770-490
|
* Fri Jan 20 2023 Fedora Release Engineering <releng@fedoraproject.org> - 4:1.9770-490
|
||||||
- Rebuilt for https://fedoraproject.org/wiki/Fedora_38_Mass_Rebuild
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_38_Mass_Rebuild
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue