Various tweaks

CVS patchset: 4613
CVS date: 2001/03/08 06:12:32

7 files changed, 24 insertions, 24 deletions

diff --git a/Perl-RPM/RPM/Constants.pm b/Perl-RPM/RPM/Constants.pm
index e1038417a..6720cf62c 100644
--- a/Perl-RPM/RPM/Constants.pm
+++ b/Perl-RPM/RPM/Constants.pm
@@ -5,7 +5,7 @@
 #
 ###############################################################################
 #
-#   $Id: Constants.pm,v 1.15 2001/03/07 19:17:24 rjray Exp $
+#   $Id: Constants.pm,v 1.16 2001/03/08 06:12:32 rjray Exp $
 #
 #   Description:    Constants for the RPM package
 #
@@ -26,8 +26,8 @@ use RPM;
 
 @ISA = qw(Exporter);
 
-$VERSION = '0.3';
-$revision = do { my @r=(q$Revision: 1.15 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$VERSION = '0.30';
+$revision = do { my @r=(q$Revision: 1.16 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
 
 @EXPORT_OK = qw(
                 ADD_SIGNATURE
diff --git a/Perl-RPM/RPM/Database.pm b/Perl-RPM/RPM/Database.pm
index f41d9a8f6..af4c2b282 100644
--- a/Perl-RPM/RPM/Database.pm
+++ b/Perl-RPM/RPM/Database.pm
@@ -5,7 +5,7 @@
 #
 ###############################################################################
 #
-#   $Id: Database.pm,v 1.15 2001/03/07 19:17:25 rjray Exp $
+#   $Id: Database.pm,v 1.16 2001/03/08 06:12:32 rjray Exp $
 #
 #   Description:    The RPM::Database class provides access to the RPM database
 #                   as a tied hash, whose keys are taken as the names of
@@ -35,8 +35,8 @@ use subs qw(new import);
 require RPM;
 require RPM::Header;
 
-$VERSION = '0.3';
-$revision = do { my @r=(q$Revision: 1.15 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$VERSION = '0.30';
+$revision = do { my @r=(q$Revision: 1.16 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
 
 1;
 
diff --git a/Perl-RPM/RPM/Error.pm b/Perl-RPM/RPM/Error.pm
index b3396a0f2..71b147d0b 100644
--- a/Perl-RPM/RPM/Error.pm
+++ b/Perl-RPM/RPM/Error.pm
@@ -7,7 +7,7 @@
 #
 ###############################################################################
 #
-#   $Id: Error.pm,v 1.8 2001/03/07 19:17:25 rjray Exp $
+#   $Id: Error.pm,v 1.9 2001/03/08 06:12:32 rjray Exp $
 #
 #   Description:    Error-management support that cooperates with the primary
 #                   Perl/C error glue.
@@ -33,8 +33,8 @@ require RPM;
 
 @ISA = qw(Exporter);
 
-$VERSION = '0.3';
-$revision = do { my @r=(q$Revision: 1.8 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$VERSION = '0.30';
+$revision = do { my @r=(q$Revision: 1.9 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
 
 @EXPORT = qw(clear_errors set_error_callback rpm_error);
 @EXPORT_OK = @EXPORT;
diff --git a/Perl-RPM/RPM/Header.pm b/Perl-RPM/RPM/Header.pm
index 6cf9072e8..53fd65733 100644
--- a/Perl-RPM/RPM/Header.pm
+++ b/Perl-RPM/RPM/Header.pm
@@ -5,7 +5,7 @@
 #
 ###############################################################################
 #
-#   $Id: Header.pm,v 1.18 2001/03/07 19:17:25 rjray Exp $
+#   $Id: Header.pm,v 1.19 2001/03/08 06:12:32 rjray Exp $
 #
 #   Description:    The RPM::Header class provides access to the RPM Header
 #                   structure as a tied hash, allowing direct access to the
@@ -38,8 +38,8 @@ use RPM;
 use RPM::Error;
 use RPM::Constants ':rpmerr';
 
-$VERSION = '0.3';
-$revision = do { my @r=(q$Revision: 1.18 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$VERSION = '0.30';
+$revision = do { my @r=(q$Revision: 1.19 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
 
 @ISA = qw(Exporter);
 @EXPORT = ();
diff --git a/Perl-RPM/RPM/Package.pm b/Perl-RPM/RPM/Package.pm
index 928f812cf..797c51e05 100644
--- a/Perl-RPM/RPM/Package.pm
+++ b/Perl-RPM/RPM/Package.pm
@@ -7,7 +7,7 @@
 #
 ###############################################################################
 #
-#   $Id: Package.pm,v 1.8 2001/03/07 19:17:25 rjray Exp $
+#   $Id: Package.pm,v 1.9 2001/03/08 06:12:32 rjray Exp $
 #
 #   Description:    Perl-level glue and such for the RPM::Package class, the
 #                   methods and accessors to package operations.
@@ -33,8 +33,8 @@ require Exporter;
 
 use RPM;
 
-$VERSION = '0.3';
-$revision = do { my @r=(q$Revision: 1.8 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$VERSION = '0.30';
+$revision = do { my @r=(q$Revision: 1.9 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
 
 @ISA = qw(Exporter);
 @EXPORT = ();
diff --git a/Perl-RPM/RPM/Package.xs b/Perl-RPM/RPM/Package.xs
index 2968772a5..882bf61ba 100644
--- a/Perl-RPM/RPM/Package.xs
+++ b/Perl-RPM/RPM/Package.xs
@@ -4,9 +4,9 @@
 
 #include "RPM.h"
 
-static char * const rcsid = "$Id: Package.xs,v 1.5 2000/11/10 08:49:24 rjray Exp $";
+static char * const rcsid = "$Id: Package.xs,v 1.6 2001/03/08 06:12:32 rjray Exp $";
 
-/* Any constants that are specific to the RPM::Header class will be exported
+/* Any constants that are specific to the RPM::Package class will be exported
    from here, via this C-level constant() routine */
 static int constant(pTHX_ char *name)
 {
@@ -24,7 +24,7 @@ static int constant(pTHX_ char *name)
         {
           case 'M':
             if (strEQ(name, "MASK"))
-#ifdef RPM_HEADER_MASK
+#ifdef RPM_PACKAGE_MASK
                 return RPM_PACKAGE_MASK;
 #else
                 goto not_found;
@@ -32,7 +32,7 @@ static int constant(pTHX_ char *name)
             break;
           case 'N':
             if (strEQ(name, "NOREAD"))
-#ifdef RPM_HEADER_NOREAD
+#ifdef RPM_PACKAGE_NOREAD
                 return RPM_PACKAGE_NOREAD;
 #else
                 goto not_found;
@@ -40,7 +40,7 @@ static int constant(pTHX_ char *name)
             break;
           case 'R':
             if (strEQ(name, "READONLY"))
-#ifdef RPM_HEADER_READONLY
+#ifdef RPM_PACKAGE_READONLY
                 return RPM_PACKAGE_READONLY;
 #else
                 goto not_found;
@@ -268,7 +268,7 @@ static void* rpmpkg_callback_handler(const Header h,
     SV* callback;           /* So that we can more easily sanity-check it */
 
     /* This is simple, but I'm planning ahead in case it gets more complex */
-    self = data;
+    self = (RPM__Package)data;
     if (! (callback = (SV *)self->callback))
         return (void *)NULL;
 
diff --git a/Perl-RPM/RPM/Transaction.pm b/Perl-RPM/RPM/Transaction.pm
index edb16114c..840421cf6 100644
--- a/Perl-RPM/RPM/Transaction.pm
+++ b/Perl-RPM/RPM/Transaction.pm
@@ -7,7 +7,7 @@
 #
 ###############################################################################
 #
-#   $Id: Transaction.pm,v 1.6 2001/03/07 19:17:25 rjray Exp $
+#   $Id: Transaction.pm,v 1.7 2001/03/08 06:12:32 rjray Exp $
 #
 #   Description:    Perl-level glue and such for the RPM::Transaction class,
 #                   the methods and accessors to transaction operations.
@@ -35,8 +35,8 @@ use RPM;
 use RPM::Header;
 use RPM::Package;
 
-$VERSION = '0.3';
-$revision = do { my @r=(q$Revision: 1.6 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$VERSION = '0.30';
+$revision = do { my @r=(q$Revision: 1.7 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
 
 1;