branch to build the firewall install.topic/unlabeled-1.1.1

1 files changed, 7 insertions, 20 deletions

diff --git a/perl-install/c.pm b/perl-install/c.pm
index d1da19f2d..0683c0ef8 100644
--- a/perl-install/c.pm
+++ b/perl-install/c.pm
@@ -1,25 +1,12 @@
-package c;
+package c; # $Id$
 
-use strict;
-use vars qw($VERSION @ISA);
+use vars qw($AUTOLOAD);
 
-require DynaLoader;
+use c::stuff;
 
-@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());
+sub AUTOLOAD {
+    $AUTOLOAD =~ /::(.*)/;
+    goto &{$c::stuff::{$1}};
 }
 
+1;