summaryrefslogtreecommitdiff
path: root/cpan/Time-HiRes/HiRes.xs
diff options
context:
space:
mode:
authorZefram <zefram@fysh.org>2012-02-01 18:06:38 +0000
committerZefram <zefram@fysh.org>2012-02-01 18:08:31 +0000
commit858dcda5988030c945f8a82f4df6e0931f37e11c (patch)
treebe7d59a43eb4208437e120b7fa5f627e66604992 /cpan/Time-HiRes/HiRes.xs
parentba20a8e01b3a415347afc35706be1898815d23a8 (diff)
downloadperl-858dcda5988030c945f8a82f4df6e0931f37e11c.tar.gz
update Time-HiRes to CPAN version 1.9725
- Correct stack discipline in stat(), which was screwing up list operations in expressions containing calls to it [rt.cpan.org #72926]. - Add missing OUTPUT sections to the XS code [rt.cpan.org #70930]. - Skip itimer tests on GNU/Hurd, which has the API but lacks the implementation [rt.cpan.org #72754]. - Fix a doubled word in the documentation [rt.cpan.org #72763].
Diffstat (limited to 'cpan/Time-HiRes/HiRes.xs')
-rw-r--r--cpan/Time-HiRes/HiRes.xs19
1 files changed, 17 insertions, 2 deletions
diff --git a/cpan/Time-HiRes/HiRes.xs b/cpan/Time-HiRes/HiRes.xs
index 32ac768861..64e63d6b13 100644
--- a/cpan/Time-HiRes/HiRes.xs
+++ b/cpan/Time-HiRes/HiRes.xs
@@ -5,7 +5,7 @@
* Copyright (c) 2002-2010 Jarkko Hietaniemi.
* All rights reserved.
*
- * Copyright (C) 2011 Andrew Main (Zefram) <zefram@fysh.org>
+ * Copyright (C) 2011, 2012 Andrew Main (Zefram) <zefram@fysh.org>
*
* This program is free software; you can redistribute it and/or modify
* it under the same terms as Perl itself.
@@ -849,6 +849,8 @@ nanosleep(nsec)
CODE:
croak("Time::HiRes::nanosleep(): unimplemented in this platform");
RETVAL = 0.0;
+ OUTPUT:
+ RETVAL
#endif /* #if defined(TIME_HIRES_NANOSLEEP) */
@@ -897,6 +899,8 @@ usleep(useconds)
CODE:
croak("Time::HiRes::usleep(): unimplemented in this platform");
RETVAL = 0.0;
+ OUTPUT:
+ RETVAL
#endif /* #if defined(HAS_USLEEP) && defined(HAS_GETTIMEOFDAY) */
@@ -969,6 +973,8 @@ ualarm(useconds,interval=0)
CODE:
croak("Time::HiRes::ualarm(): unimplemented in this platform");
RETVAL = -1;
+ OUTPUT:
+ RETVAL
NV
alarm(seconds,interval=0)
@@ -977,6 +983,8 @@ alarm(seconds,interval=0)
CODE:
croak("Time::HiRes::alarm(): unimplemented in this platform");
RETVAL = 0.0;
+ OUTPUT:
+ RETVAL
#endif /* #ifdef HAS_UALARM */
@@ -1132,6 +1140,8 @@ clock_gettime(clock_id = 0)
CODE:
croak("Time::HiRes::clock_gettime(): unimplemented in this platform");
RETVAL = 0.0;
+ OUTPUT:
+ RETVAL
#endif /* #if defined(TIME_HIRES_CLOCK_GETTIME) */
@@ -1162,6 +1172,8 @@ clock_getres(clock_id = 0)
CODE:
croak("Time::HiRes::clock_getres(): unimplemented in this platform");
RETVAL = 0.0;
+ OUTPUT:
+ RETVAL
#endif /* #if defined(TIME_HIRES_CLOCK_GETRES) */
@@ -1200,6 +1212,8 @@ clock_nanosleep(clock_id, nsec, flags = 0)
CODE:
croak("Time::HiRes::clock_nanosleep(): unimplemented in this platform");
RETVAL = 0.0;
+ OUTPUT:
+ RETVAL
#endif /* #if defined(TIME_HIRES_CLOCK_NANOSLEEP) && defined(TIMER_ABSTIME) */
@@ -1223,6 +1237,8 @@ clock()
CODE:
croak("Time::HiRes::clock(): unimplemented in this platform");
RETVAL = 0.0;
+ OUTPUT:
+ RETVAL
#endif /* #if defined(TIME_HIRES_CLOCK) && defined(CLOCKS_PER_SEC) */
@@ -1230,7 +1246,6 @@ void
stat(...)
PROTOTYPE: ;$
PPCODE:
- PUSHMARK(SP);
XPUSHs(sv_2mortal(newSVsv(items == 1 ? ST(0) : DEFSV)));
PUTBACK;
ENTER;