Print this page
Add perl support KSTAT_DATA_TIME.
*** 20,29 ****
--- 20,30 ----
*/
/*
* Copyright (c) 1999, 2010, Oracle and/or its affiliates. All rights reserved.
* Copyright (c) 2014 Racktop Systems.
+ * Copyright 2016 Garrett D'Amore
*/
/*
* Kstat.xs is a Perl XS (eXStension module) that makes the Solaris
* kstat(3KSTAT) facility available to Perl scripts. Kstat is a general-purpose
*** 1072,1081 ****
--- 1073,1085 ----
value = NEW_UV(knp->value.i64);
break;
case KSTAT_DATA_UINT64:
value = NEW_UV(knp->value.ui64);
break;
+ case KSTAT_DATA_TIME:
+ value = NEW_HRTIME(knp->value.ui64);
+ break;
case KSTAT_DATA_STRING:
if (KSTAT_NAMED_STR_PTR(knp) == NULL)
value = newSVpv("null", sizeof ("null") - 1);
else
value = newSVpv(KSTAT_NAMED_STR_PTR(knp),