diff options
| author | Chmouel Boudjnah <chmouel@mandriva.org> | 1999-07-01 12:29:54 +0000 |
|---|---|---|
| committer | Chmouel Boudjnah <chmouel@mandriva.org> | 1999-07-01 12:29:54 +0000 |
| commit | e1729dfdb9c341fe0b9fed7d7b0a80691a547d82 (patch) | |
| tree | b72fd8f59af166fe944ebcf114d648ed5644f752 /perl-install/c.pm | |
| parent | b50e655e352e2524fb3fb84b2bb4bc96e6a04cf0 (diff) | |
| download | drakx-e1729dfdb9c341fe0b9fed7d7b0a80691a547d82.tar drakx-e1729dfdb9c341fe0b9fed7d7b0a80691a547d82.tar.gz drakx-e1729dfdb9c341fe0b9fed7d7b0a80691a547d82.tar.bz2 drakx-e1729dfdb9c341fe0b9fed7d7b0a80691a547d82.tar.xz drakx-e1729dfdb9c341fe0b9fed7d7b0a80691a547d82.zip | |
"See_The_Changelog"
Diffstat (limited to 'perl-install/c.pm')
| -rw-r--r-- | perl-install/c.pm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/perl-install/c.pm b/perl-install/c.pm new file mode 100644 index 000000000..d1da19f2d --- /dev/null +++ b/perl-install/c.pm @@ -0,0 +1,25 @@ +package c; + +use strict; +use vars qw($VERSION @ISA); + +require DynaLoader; + +@ISA = qw(DynaLoader); +$VERSION = '0.01'; + +bootstrap c $VERSION; + +1; + +sub headerGetEntry { + my ($h, $q) = @_; + + $q eq 'name' and return headerGetEntry_string($h, RPMTAG_NAME()); + $q eq 'group' and return headerGetEntry_string($h, RPMTAG_GROUP()); + $q eq 'version' and return headerGetEntry_string($h, RPMTAG_VERSION()); + $q eq 'release' and return headerGetEntry_string($h, RPMTAG_RELEASE()); + $q eq 'arch' and return headerGetEntry_string($h, RPMTAG_ARCH()); + $q eq 'size' and return headerGetEntry_int($h, RPMTAG_SIZE()); +} + |