This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Time-HiRes: Use core version compare
authorKarl Williamson <khw@cpan.org>
Fri, 17 Jul 2020 20:29:31 +0000 (14:29 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 17 Jul 2020 20:31:18 +0000 (14:31 -0600)
This had its own copy of some macros that are now in core.

dist/Time-HiRes/HiRes.pm
dist/Time-HiRes/HiRes.xs

index 433ca31..1183dc9 100644 (file)
@@ -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.9765';
 our $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
index 8002472..0eeca95 100644 (file)
@@ -42,12 +42,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