diff options
| author | Todd Rinaldo <toddr@cpan.org> | 2022-04-15 17:10:10 +0000 |
|---|---|---|
| committer | Todd Rinaldo <toddr@cpan.org> | 2022-04-18 17:37:29 -0500 |
| commit | 1af8d4dbf5b915e9138e03bdbbe19cb20a326f34 (patch) | |
| tree | be1a44ccfae1322a5d961c8c140fa3a442c2baed /dist/Time-HiRes | |
| parent | e910aee814104081fe2b7c4e9e0f314d38e66e5f (diff) | |
| download | perl-1af8d4dbf5b915e9138e03bdbbe19cb20a326f34.tar.gz | |
Update Time-HiRes.xs to conform to ppport.h 3.68 recommendations
Diffstat (limited to 'dist/Time-HiRes')
| -rw-r--r-- | dist/Time-HiRes/HiRes.pm | 2 | ||||
| -rw-r--r-- | dist/Time-HiRes/HiRes.xs | 9 |
2 files changed, 6 insertions, 5 deletions
diff --git a/dist/Time-HiRes/HiRes.pm b/dist/Time-HiRes/HiRes.pm index 5ec3a7c918..7e21047f15 100644 --- a/dist/Time-HiRes/HiRes.pm +++ b/dist/Time-HiRes/HiRes.pm @@ -50,7 +50,7 @@ our @EXPORT_OK = qw (usleep sleep ualarm alarm gettimeofday time tv_interval stat lstat utime ); -our $VERSION = '1.9769'; +our $VERSION = '1.9770'; our $XS_VERSION = $VERSION; $VERSION = eval $VERSION; diff --git a/dist/Time-HiRes/HiRes.xs b/dist/Time-HiRes/HiRes.xs index 1b97962b3a..1eb7de3ff1 100644 --- a/dist/Time-HiRes/HiRes.xs +++ b/dist/Time-HiRes/HiRes.xs @@ -20,6 +20,7 @@ extern "C" { #include "XSUB.h" #include "reentr.h" #ifdef USE_PPPORT_H +#define NEED_ck_warner # include "ppport.h" #endif #if defined(__CYGWIN__) && defined(HAS_W32API_WINDOWS_H) @@ -1192,7 +1193,7 @@ gettimeofday() int status; status = gettimeofday (&Tp, NULL); if (status == 0) { - if (GIMME == G_ARRAY) { + if (GIMME == G_LIST) { EXTEND(sp, 2); PUSHs(sv_2mortal(newSViv(Tp.tv_sec))); PUSHs(sv_2mortal(newSViv(Tp.tv_usec))); @@ -1249,7 +1250,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_ARRAY) { + if (GIMME == G_LIST) { EXTEND(sp, 1); PUSHs(sv_2mortal(newSVnv(TV2NV(oldit.it_interval)))); } @@ -1269,7 +1270,7 @@ getitimer(which) if (getitimer(which, &nowit) == 0) { EXTEND(sp, 1); PUSHs(sv_2mortal(newSVnv(TV2NV(nowit.it_value)))); - if (GIMME == G_ARRAY) { + if (GIMME == G_LIST) { EXTEND(sp, 1); PUSHs(sv_2mortal(newSVnv(TV2NV(nowit.it_interval)))); } @@ -1522,7 +1523,7 @@ PROTOTYPE: ;$ Zero(&fakeop, 1, OP); fakeop.op_type = ix ? OP_LSTAT : OP_STAT; fakeop.op_ppaddr = PL_ppaddr[fakeop.op_type]; - fakeop.op_flags = GIMME_V == G_ARRAY ? OPf_WANT_LIST : + fakeop.op_flags = GIMME_V == G_LIST ? OPf_WANT_LIST : GIMME_V == G_SCALAR ? OPf_WANT_SCALAR : OPf_WANT_VOID; PL_op = &fakeop; (void)fakeop.op_ppaddr(aTHX); |