Print this page
Add perl support KSTAT_DATA_TIME.

@@ -20,10 +20,11 @@
  */
 
 /*
  * 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,10 +1073,13 @@
                         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),