开源软件构建与测试

We truncated the diff of some files because they were too big. If you want to see the full diff for every file, click here.

Changes of Revision 2

_service:extract_file:perl-Time-HiRes.spec Deleted

@@ -1,84 +0,0 @@
-%global base_version 1.9764
-Name:            perl-Time-HiRes
-Epoch:           4
-Version:         1.9767
-Release:         2
-Summary:         High resolution time, sleep, and alarm for perl
-License:         GPL+ or Artistic
-URL:             https://metacpan.org/release/Time-HiRes
-Source0:         https://cpan.metacpan.org/authors/id/A/AT/ATOOMIC/Time-HiRes-%{base_version}.tar.gz
-
-Patch6000:       backport-Time-HiRes-1.9764-Upgrade-to-1.9767.patch
-
-BuildRequires:   findutils gcc make perl-devel perl-generators perl-interpreter perl(Config)
-BuildRequires:   perl(ExtUtils::Constant) perl(ExtUtils::MakeMaker) >= 6.76 perl(File::Spec) perl(strict)
-BuildRequires:   perl(Carp) perl(Exporter) perl(XSLoader)
-BuildRequires:   perl(File::Temp) perl(Test::More) perl(POSIX)
-Requires:        perl(Carp) perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
-
-%description
-Implement usleep, ualarm, and gettimeofday for Perl, as well as wrappers
-to implement time, sleep, and alarm that know about non-integral seconds.
-
-%package_help
-
-%prep
-%autosetup -n Time-HiRes-%{base_version} -p1
-
-%build
-perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 OPTIMIZE="$RPM_OPT_FLAGS"
-%make_build
-
-%install
-make pure_install DESTDIR=%{buildroot}
-%{_fixperms} %{buildroot}/*
-
-%check
-make test
-
-%pre
-
-%preun
-
-%post
-
-%postun
-
-%files
-%doc Changes README TODO
-%{perl_vendorarch}/auto/*
-%{perl_vendorarch}/Time*
-
-%files help
-%{_mandir}/man3/*
-
-%changelog
-* Mon Apr 18 2022 liudabo <liudabo1@h-partners.com> 4:1.9767-2
-- Modify Epoch to ensure upgrade continuity
-
-* Sun Dec 26 2021 yuanxin <yuanxin24@huawei.com> - 1:1.9767-1
-- update version to 1.9767
-
-* Fri Jan 29 2021 liudabo <liudabo1@huawei.com> - 1:1.9764-1
-- upgrade version to 1.9764
-
-* Fri Sep 4 2020 shixuantong<shixuantong@huawei.com> - 1:1.9760-4
-- Type:bugfix
-- ID:NA
-- SUG:NA
-- DESC:update Source0
-
-* Fri May 22 2020 shenyangyang<shenyangyang4@huawei.com> - 1:1.9760-3
-- Type:bugfix
-- ID:NA
-- SUG:NA
-- DESC:add Epoch for updating
-
-* Fri Sep 27 2019 chengquan<chengquan3@huawei.com> - 1.9760-2
-- Type:bugfix
-- ID:NA
-- SUG:NA
-- DESC:fix spec rule in openeuler
-
-* Fri Sep 27 2019 openEuler Buildteam <buildteam@openeuler.org> - 1.9760-1
-- Package init

_service:tar_scm:perl-Time-HiRes.spec Added

@@ -0,0 +1,88 @@
+%global base_version 1.9764
+%define mod_name Time-HiRes
+Name:            perl-%{mod_name}
+Epoch:           4
+Version:         1.9767
+Release:         3
+Summary:         High resolution time, sleep, and alarm for perl
+License:         GPL+ or Artistic
+URL:             https://metacpan.org/release/%{mod_name}
+Source0:         https://cpan.metacpan.org/authors/id/A/AT/ATOOMIC/%{mod_name}-%{base_version}.tar.gz
+
+Patch6000:       backport-Time-HiRes-1.9764-Upgrade-to-1.9767.patch
+
+BuildRequires:   findutils gcc make perl-devel perl-generators perl-interpreter perl(Config)
+BuildRequires:   perl(ExtUtils::Constant) perl(ExtUtils::MakeMaker) >= 6.76 perl(File::Spec) perl(strict)
+BuildRequires:   perl(Carp) perl(Exporter) perl(XSLoader)
+BuildRequires:   perl(File::Temp) perl(Test::More) perl(POSIX)
+Requires:        perl(Carp) perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+
+%description
+Implement usleep, ualarm, and gettimeofday for Perl, as well as wrappers
+to implement time, sleep, and alarm that know about non-integral seconds.
+
+%package_help
+
+%prep
+%autosetup -n %{mod_name}-%{base_version} -p1
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 OPTIMIZE="$RPM_OPT_FLAGS"
+%make_build
+
+%install
+make pure_install DESTDIR=%{buildroot}
+%{_fixperms} %{buildroot}/*
+
+%check
+make test
+
+%pre
+
+%preun
+
+%post
+
+%postun
+
+%files
+%doc Changes README TODO
+%{perl_vendorarch}/auto/*
+%{perl_vendorarch}/Time*
+
+%files help
+%{_mandir}/man3/*
+
+%changelog
+* Mon Oct 24 2022 hongjinghao <hongjinghao@huawei.com> 4:1.9767-3
+- add mod_name marco
+
+* Mon Apr 18 2022 liudabo <liudabo1@h-partners.com> 4:1.9767-2
+- Modify Epoch to ensure upgrade continuity
+
+* Sun Dec 26 2021 yuanxin <yuanxin24@huawei.com> - 1:1.9767-1
+- update version to 1.9767
+
+* Fri Jan 29 2021 liudabo <liudabo1@huawei.com> - 1:1.9764-1
+- upgrade version to 1.9764
+
+* Fri Sep 4 2020 shixuantong<shixuantong@huawei.com> - 1:1.9760-4
+- Type:bugfix
+- ID:NA
+- SUG:NA
+- DESC:update Source0
+
+* Fri May 22 2020 shenyangyang<shenyangyang4@huawei.com> - 1:1.9760-3
+- Type:bugfix
+- ID:NA
+- SUG:NA
+- DESC:add Epoch for updating
+
+* Fri Sep 27 2019 chengquan<chengquan3@huawei.com> - 1.9760-2
+- Type:bugfix
+- ID:NA
+- SUG:NA
+- DESC:fix spec rule in openeuler
+
+* Fri Sep 27 2019 openEuler Buildteam <buildteam@openeuler.org> - 1.9760-1
+- Package init

_service:extract_file:backport-Time-HiRes-1.9764-Upgrade-to-1.9767.patch Deleted

@@ -1,305 +0,0 @@
-From b731ad9a903192762bbd6f53fb454b114c841cae Mon Sep 17 00:00:00 2001
-From: root <root@localhost.localdomain>
-Date: Wed, 22 Dec 2021 11:38:30 +0800
-Subject: PATCH 1.9767
-
----
- Changes   |   3 +
- HiRes.pm  |   2 +-
- HiRes.xs  | 204 +++---------------------------------------------------
- t/utime.t |   6 ++
- 4 files changed, 18 insertions(+), 197 deletions(-)
-
-diff --git a/Changes b/Changes
-index a9b91a0..96f058a 100644
---- a/Changes
-+++ b/Changes
-@@ -2,6 +2,9 @@ Revision history for the Perl extension Time::HiRes.
- 
- {{NEXT}}
- 
-+ - Remove obsolete vms code
-+ - Use core version compare
-+
- 1.9764 2020-08-10
-  - Fix a bunch of repeated-word typos
-  - Fix compilation with Visual C++ 2013 and older
-diff --git a/HiRes.pm b/HiRes.pm
-index 433ca31..9377c34 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.9764';
-+our $VERSION = '1.9767';
- our $XS_VERSION = $VERSION;
- $VERSION = eval $VERSION;
- 
-diff --git a/HiRes.xs b/HiRes.xs
-index 8002472..1b97962 100644
---- a/HiRes.xs
-+++ b/HiRes.xs
-@@ -18,6 +18,7 @@ extern "C" {
- #include "EXTERN.h"
- #include "perl.h"
- #include "XSUB.h"
-+#include "reentr.h"
- #ifdef USE_PPPORT_H
- #  include "ppport.h"
- #endif
-@@ -42,12 +43,6 @@ extern "C" {
- }
- #endif
- 
--#define PERL_VERSION_DECIMAL(r,v,s) (r*1000000 + v*1000 + s)
--#define PERL_DECIMAL_VERSION \
--        PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION)
--#define PERL_VERSION_GE(r,v,s) \
--        (PERL_DECIMAL_VERSION >= PERL_VERSION_DECIMAL(r,v,s))
--
- #ifndef GCC_DIAG_IGNORE
- #  define GCC_DIAG_IGNORE(x)
- #  define GCC_DIAG_RESTORE
-@@ -139,8 +134,12 @@ typedef struct {
-     unsigned __int64 reset_time;
- } my_cxt_t;
- 
--/* Visual C++ 2013 and older don't have the timespec structure */
--#  if defined(_MSC_VER) && _MSC_VER < 1900
-+/* Visual C++ 2013 and older don't have the timespec structure.
-+ * Neither do mingw.org compilers with MinGW runtimes older than 3.22. */
-+#  if((defined(_MSC_VER) && _MSC_VER < 1900) || \
-+      (defined(__MINGW32__) && !defined(__MINGW64_VERSION_MAJOR) && \
-+      defined(__MINGW32_MAJOR_VERSION) && (__MINGW32_MAJOR_VERSION < 3 || \
-+      (__MINGW32_MAJOR_VERSION == 3 && __MINGW32_MINOR_VERSION < 22))))
- struct timespec {
-     time_t tv_sec;
-     long   tv_nsec;
-@@ -323,193 +322,6 @@ _clock_getres(clockid_t clock_id, struct timespec *tp)
- 
- #endif /* #if defined(WIN32) || defined(CYGWIN_WITH_W32API) */
- 
--#if !defined(HAS_GETTIMEOFDAY) && defined(VMS)
--#  define HAS_GETTIMEOFDAY
--
--#  include <lnmdef.h>
--#  include <time.h> /* gettimeofday */
--#  include <stdlib.h> /* qdiv */
--#  include <starlet.h> /* sys$gettim */
--#  include <descrip.h>
--#  ifdef __VAX
--#    include <lib$routines.h> /* lib$ediv() */
--#  endif
--
--/*
--        VMS binary time is expressed in 100 nano-seconds since
--        system base time which is 17-NOV-1858 00:00:00.00
--*/
--
--#  define DIV_100NS_TO_SECS  10000000L
--#  define DIV_100NS_TO_USECS 10L
--
--/*
--        gettimeofday is supposed to return times since the epoch
--        so need to determine this in terms of VMS base time
--*/
--static $DESCRIPTOR(dscepoch,"01-JAN-1970 00:00:00.00");
--
--#  ifdef __VAX
--static long base_adjust2={0L,0L};
--#  else
--static __int64 base_adjust=0;
--#  endif
--
--/*
--
--   If we don't have gettimeofday, then likely we are on a VMS machine that
--   operates on local time rather than UTC...so we have to zone-adjust.
--   This code gleefully swiped from VMS.C
--
--*/
--/* method used to handle UTC conversions:
-- *   1 == CRTL gmtime();  2 == SYS$TIMEZONE_DIFFERENTIAL;  3 == no correction
-- */
--static int gmtime_emulation_type;
--/* number of secs to add to UTC POSIX-style time to get local time */
--static long int utc_offset_secs;
--static struct dsc$descriptor_s fildevdsc =
--    { 12, DSC$K_DTYPE_T, DSC$K_CLASS_S, "LNM$FILE_DEV" };
--static struct dsc$descriptor_s *fildev = { &fildevdsc, NULL };
--
--static time_t toutc_dst(time_t loc) {
--    struct tm *rsltmp;
--
--    if ((rsltmp = localtime(&loc)) == NULL) return -1;
--    loc -= utc_offset_secs;
--    if (rsltmp->tm_isdst) loc -= 3600;
--    return loc;
--}
--
--static time_t toloc_dst(time_t utc) {
--    struct tm *rsltmp;
--
--    utc += utc_offset_secs;
--    if ((rsltmp = localtime(&utc)) == NULL) return -1;
--    if (rsltmp->tm_isdst) utc += 3600;
--    return utc;
--}
--
--#  define _toutc(secs)  ((secs) == (time_t) -1 ? (time_t) -1 : \
--          ((gmtime_emulation_type || timezone_setup()), \
--          (gmtime_emulation_type == 1 ? toutc_dst(secs) : \
--          ((secs) - utc_offset_secs))))
--
--#  define _toloc(secs)  ((secs) == (time_t) -1 ? (time_t) -1 : \
--          ((gmtime_emulation_type || timezone_setup()), \
--          (gmtime_emulation_type == 1 ? toloc_dst(secs) : \
--          ((secs) + utc_offset_secs))))
--
--static int
--timezone_setup(void)
--{
--    struct tm *tm_p;
--
--    if (gmtime_emulation_type == 0) {
--        int dstnow;
--        time_t base = 15 * 86400; /* 15jan71; to avoid month/year ends between    */
--                                  /* results of calls to gmtime() and localtime() */
--                                  /* for same &base */
--
--        gmtime_emulation_type++;
--        if ((tm_p = gmtime(&base)) == NULL) { /* CRTL gmtime() is a fake */
--            char offLNM$C_NAMLENGTH+1;;
--
--            gmtime_emulation_type++;
--            if (!Perl_vmstrnenv("SYS$TIMEZONE_DIFFERENTIAL",off,0,fildev,0)) {
--                gmtime_emulation_type++;
--                utc_offset_secs = 0;
--                Perl_warn(aTHX_ "no UTC offset information; assuming local time is UTC");
--            }
--            else { utc_offset_secs = atol(off); }
--        }
--        else { /* We've got a working gmtime() */
--            struct tm gmt, local;
--
--            gmt = *tm_p;
--            tm_p = localtime(&base);
--            local = *tm_p;
--            utc_offset_secs  = (local.tm_mday - gmt.tm_mday) * 86400;
--            utc_offset_secs += (local.tm_hour - gmt.tm_hour) * 3600;
--            utc_offset_secs += (local.tm_min  - gmt.tm_min)  * 60;
--            utc_offset_secs += (local.tm_sec  - gmt.tm_sec);
--        }
--    }
--    return 1;
--}
--
--

_service:tar_scm:backport-Time-HiRes-1.9764-Upgrade-to-1.9767.patch Added

@@ -0,0 +1,305 @@
+From b731ad9a903192762bbd6f53fb454b114c841cae Mon Sep 17 00:00:00 2001
+From: root <root@localhost.localdomain>
+Date: Wed, 22 Dec 2021 11:38:30 +0800
+Subject: PATCH 1.9767
+
+---
+ Changes   |   3 +
+ HiRes.pm  |   2 +-
+ HiRes.xs  | 204 +++---------------------------------------------------
+ t/utime.t |   6 ++
+ 4 files changed, 18 insertions(+), 197 deletions(-)
+
+diff --git a/Changes b/Changes
+index a9b91a0..96f058a 100644
+--- a/Changes
++++ b/Changes
+@@ -2,6 +2,9 @@ Revision history for the Perl extension Time::HiRes.
+ 
+ {{NEXT}}
+ 
++ - Remove obsolete vms code
++ - Use core version compare
++
+ 1.9764 2020-08-10
+  - Fix a bunch of repeated-word typos
+  - Fix compilation with Visual C++ 2013 and older
+diff --git a/HiRes.pm b/HiRes.pm
+index 433ca31..9377c34 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.9764';
++our $VERSION = '1.9767';
+ our $XS_VERSION = $VERSION;
+ $VERSION = eval $VERSION;
+ 
+diff --git a/HiRes.xs b/HiRes.xs
+index 8002472..1b97962 100644
+--- a/HiRes.xs
++++ b/HiRes.xs
+@@ -18,6 +18,7 @@ extern "C" {
+ #include "EXTERN.h"
+ #include "perl.h"
+ #include "XSUB.h"
++#include "reentr.h"
+ #ifdef USE_PPPORT_H
+ #  include "ppport.h"
+ #endif
+@@ -42,12 +43,6 @@ extern "C" {
+ }
+ #endif
+ 
+-#define PERL_VERSION_DECIMAL(r,v,s) (r*1000000 + v*1000 + s)
+-#define PERL_DECIMAL_VERSION \
+-        PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION)
+-#define PERL_VERSION_GE(r,v,s) \
+-        (PERL_DECIMAL_VERSION >= PERL_VERSION_DECIMAL(r,v,s))
+-
+ #ifndef GCC_DIAG_IGNORE
+ #  define GCC_DIAG_IGNORE(x)
+ #  define GCC_DIAG_RESTORE
+@@ -139,8 +134,12 @@ typedef struct {
+     unsigned __int64 reset_time;
+ } my_cxt_t;
+ 
+-/* Visual C++ 2013 and older don't have the timespec structure */
+-#  if defined(_MSC_VER) && _MSC_VER < 1900
++/* Visual C++ 2013 and older don't have the timespec structure.
++ * Neither do mingw.org compilers with MinGW runtimes older than 3.22. */
++#  if((defined(_MSC_VER) && _MSC_VER < 1900) || \
++      (defined(__MINGW32__) && !defined(__MINGW64_VERSION_MAJOR) && \
++      defined(__MINGW32_MAJOR_VERSION) && (__MINGW32_MAJOR_VERSION < 3 || \
++      (__MINGW32_MAJOR_VERSION == 3 && __MINGW32_MINOR_VERSION < 22))))
+ struct timespec {
+     time_t tv_sec;
+     long   tv_nsec;
+@@ -323,193 +322,6 @@ _clock_getres(clockid_t clock_id, struct timespec *tp)
+ 
+ #endif /* #if defined(WIN32) || defined(CYGWIN_WITH_W32API) */
+ 
+-#if !defined(HAS_GETTIMEOFDAY) && defined(VMS)
+-#  define HAS_GETTIMEOFDAY
+-
+-#  include <lnmdef.h>
+-#  include <time.h> /* gettimeofday */
+-#  include <stdlib.h> /* qdiv */
+-#  include <starlet.h> /* sys$gettim */
+-#  include <descrip.h>
+-#  ifdef __VAX
+-#    include <lib$routines.h> /* lib$ediv() */
+-#  endif
+-
+-/*
+-        VMS binary time is expressed in 100 nano-seconds since
+-        system base time which is 17-NOV-1858 00:00:00.00
+-*/
+-
+-#  define DIV_100NS_TO_SECS  10000000L
+-#  define DIV_100NS_TO_USECS 10L
+-
+-/*
+-        gettimeofday is supposed to return times since the epoch
+-        so need to determine this in terms of VMS base time
+-*/
+-static $DESCRIPTOR(dscepoch,"01-JAN-1970 00:00:00.00");
+-
+-#  ifdef __VAX
+-static long base_adjust2={0L,0L};
+-#  else
+-static __int64 base_adjust=0;
+-#  endif
+-
+-/*
+-
+-   If we don't have gettimeofday, then likely we are on a VMS machine that
+-   operates on local time rather than UTC...so we have to zone-adjust.
+-   This code gleefully swiped from VMS.C
+-
+-*/
+-/* method used to handle UTC conversions:
+- *   1 == CRTL gmtime();  2 == SYS$TIMEZONE_DIFFERENTIAL;  3 == no correction
+- */
+-static int gmtime_emulation_type;
+-/* number of secs to add to UTC POSIX-style time to get local time */
+-static long int utc_offset_secs;
+-static struct dsc$descriptor_s fildevdsc =
+-    { 12, DSC$K_DTYPE_T, DSC$K_CLASS_S, "LNM$FILE_DEV" };
+-static struct dsc$descriptor_s *fildev = { &fildevdsc, NULL };
+-
+-static time_t toutc_dst(time_t loc) {
+-    struct tm *rsltmp;
+-
+-    if ((rsltmp = localtime(&loc)) == NULL) return -1;
+-    loc -= utc_offset_secs;
+-    if (rsltmp->tm_isdst) loc -= 3600;
+-    return loc;
+-}
+-
+-static time_t toloc_dst(time_t utc) {
+-    struct tm *rsltmp;
+-
+-    utc += utc_offset_secs;
+-    if ((rsltmp = localtime(&utc)) == NULL) return -1;
+-    if (rsltmp->tm_isdst) utc += 3600;
+-    return utc;
+-}
+-
+-#  define _toutc(secs)  ((secs) == (time_t) -1 ? (time_t) -1 : \
+-          ((gmtime_emulation_type || timezone_setup()), \
+-          (gmtime_emulation_type == 1 ? toutc_dst(secs) : \
+-          ((secs) - utc_offset_secs))))
+-
+-#  define _toloc(secs)  ((secs) == (time_t) -1 ? (time_t) -1 : \
+-          ((gmtime_emulation_type || timezone_setup()), \
+-          (gmtime_emulation_type == 1 ? toloc_dst(secs) : \
+-          ((secs) + utc_offset_secs))))
+-
+-static int
+-timezone_setup(void)
+-{
+-    struct tm *tm_p;
+-
+-    if (gmtime_emulation_type == 0) {
+-        int dstnow;
+-        time_t base = 15 * 86400; /* 15jan71; to avoid month/year ends between    */
+-                                  /* results of calls to gmtime() and localtime() */
+-                                  /* for same &base */
+-
+-        gmtime_emulation_type++;
+-        if ((tm_p = gmtime(&base)) == NULL) { /* CRTL gmtime() is a fake */
+-            char offLNM$C_NAMLENGTH+1;;
+-
+-            gmtime_emulation_type++;
+-            if (!Perl_vmstrnenv("SYS$TIMEZONE_DIFFERENTIAL",off,0,fildev,0)) {
+-                gmtime_emulation_type++;
+-                utc_offset_secs = 0;
+-                Perl_warn(aTHX_ "no UTC offset information; assuming local time is UTC");
+-            }
+-            else { utc_offset_secs = atol(off); }
+-        }
+-        else { /* We've got a working gmtime() */
+-            struct tm gmt, local;
+-
+-            gmt = *tm_p;
+-            tm_p = localtime(&base);
+-            local = *tm_p;
+-            utc_offset_secs  = (local.tm_mday - gmt.tm_mday) * 86400;
+-            utc_offset_secs += (local.tm_hour - gmt.tm_hour) * 3600;
+-            utc_offset_secs += (local.tm_min  - gmt.tm_min)  * 60;
+-            utc_offset_secs += (local.tm_sec  - gmt.tm_sec);
+-        }
+-    }
+-    return 1;
+-}
+-
+-

_service Changed

_service:extract_file:Time-HiRes-1.9764.tar.gz Deleted

_service:extract_file:perl-Time-HiRes.yaml Deleted

_service:tar_scm:Time-HiRes-1.9764.tar.gz Added

_service:tar_scm:perl-Time-HiRes-1650424868.b6c6306.tar Deleted

_service:tar_scm:perl-Time-HiRes.yaml Added