From 6de0ff3b3f1739639690884c5b03519b81dcfce7 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 22 May 2001 13:36:17 +0000
Subject: added arch support.

---
 rpmtools.xs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'rpmtools.xs')

diff --git a/rpmtools.xs b/rpmtools.xs
index 4aeebd1..c270994 100644
--- a/rpmtools.xs
+++ b/rpmtools.xs
@@ -2,6 +2,7 @@
 #include "perl.h"
 #include "XSUB.h"
 
+#include <sys/utsname.h>
 #include <sys/types.h>
 #include <sys/stat.h>
 #include <fcntl.h>
@@ -290,6 +291,14 @@ void callback_empty(void) {}
 MODULE = rpmtools			PACKAGE = rpmtools
 
 
+char *
+arch()
+  CODE:
+  struct utsname u;
+  if (uname(&u) == 0) RETVAL = u.machine; else RETVAL = NULL;
+  OUTPUT:
+  RETVAL
+
 void*
 db_open(prefix)
   char *prefix
-- 
cgit v1.2.1