summaryrefslogtreecommitdiffstats
path: root/perl-install/c/stuff.xs.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-05-22 20:57:51 +0000
committerFrancois Pons <fpons@mandriva.com>2000-05-22 20:57:51 +0000
commitc15afb4a54dd6003ed89efaf6d42ef2db7eb887f (patch)
treec56ca90952b5e6499f897d11f73657d7cfc7a55c /perl-install/c/stuff.xs.pm
parent58d2d2741ce5d150377e92b36d3ea5aaec97eb90 (diff)
downloaddrakx-backup-do-not-use-c15afb4a54dd6003ed89efaf6d42ef2db7eb887f.tar
drakx-backup-do-not-use-c15afb4a54dd6003ed89efaf6d42ef2db7eb887f.tar.gz
drakx-backup-do-not-use-c15afb4a54dd6003ed89efaf6d42ef2db7eb887f.tar.bz2
drakx-backup-do-not-use-c15afb4a54dd6003ed89efaf6d42ef2db7eb887f.tar.xz
drakx-backup-do-not-use-c15afb4a54dd6003ed89efaf6d42ef2db7eb887f.zip
*** empty log message ***
Diffstat (limited to 'perl-install/c/stuff.xs.pm')
-rw-r--r--perl-install/c/stuff.xs.pm7
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm
index 6296c7461..77c779c83 100644
--- a/perl-install/c/stuff.xs.pm
+++ b/perl-install/c/stuff.xs.pm
@@ -261,6 +261,13 @@ kernel_version()
OUTPUT:
RETVAL
+char *
+kernel_arch()
+ CODE:
+ struct utsname u;
+ if (uname(&u) == 0) RETVAL = u.machine; else RETVAL = NULL;
+ OUTPUT:
+ RETVAL
int
set_loop(dev_fd, file)