diff options
| author | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2005-12-17 12:22:25 +0000 |
|---|---|---|
| committer | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2005-12-17 12:22:25 +0000 |
| commit | c171e771797b2250b94f52f18f3c0c96a2765522 (patch) | |
| tree | 92f998ef967afc1e099bb144eae37d4e0f77a1ad | |
| parent | 6b84655e4a2dc9a06b28494c3c06e89bb99a151c (diff) | |
| download | perl-RPM4-c171e771797b2250b94f52f18f3c0c96a2765522.tar perl-RPM4-c171e771797b2250b94f52f18f3c0c96a2765522.tar.gz perl-RPM4-c171e771797b2250b94f52f18f3c0c96a2765522.tar.bz2 perl-RPM4-c171e771797b2250b94f52f18f3c0c96a2765522.tar.xz perl-RPM4-c171e771797b2250b94f52f18f3c0c96a2765522.zip | |
- add rpmcpuinfo
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@57 971eb68f-4bfb-0310-8326-d2484c010a4c
| -rw-r--r-- | RPM4/src/RPM4.xs | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs index a4c8fa3..b50e618 100644 --- a/RPM4/src/RPM4.xs +++ b/RPM4/src/RPM4.xs @@ -2116,7 +2116,23 @@ rpmlibgetconf(path = NULL) } #else #endif - + +void +rpmcpuinfo(path = NULL) + char * path + PREINIT: +#ifdef RPM4_4_3 + rpmds Dep = NULL; +#endif + PPCODE: +#ifdef RPM4_4_3 + if(!rpmdsCpuinfo(&Dep, path)) { + XPUSHs(sv_2mortal(sv_setref_pv(newSVpv("", 0), bless_rpmds, Dep))); + } +#else +#endif + + MODULE = RPM4 PACKAGE = RPM4::Header::Dependencies PREFIX = Dep_ void |