From bca2d777466355fc7418add08d3f88427b87ac2e Mon Sep 17 00:00:00 2001
From: Doug MacEachern <dougm@hyperic.com>
Date: Fri, 17 Sep 2004 19:00:57 +0000
Subject: [PATCH] add format_size

---
 bindings/perl/Sigar.xs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/bindings/perl/Sigar.xs b/bindings/perl/Sigar.xs
index 83a22f86..0e47c445 100644
--- a/bindings/perl/Sigar.xs
+++ b/bindings/perl/Sigar.xs
@@ -132,6 +132,19 @@ DESTROY(sigar)
     CODE:
     (void)sigar_close(sigar);
 
+char *
+format_size(size)
+    UV size
+
+    PREINIT:
+    char buffer[56];
+
+    CODE:
+    RETVAL = sigar_format_size(size, buffer);
+
+    OUTPUT:
+    RETVAL
+
 char *
 sigar_fqdn(sigar)
     Sigar sigar