Changed the way $VERSION is set

CVS patchset: 4713
CVS date: 2001/04/27 09:05:21

diff --git a/Perl-RPM/RPM.pm b/Perl-RPM/RPM.pm
index 820259b..48cc2fc 100644 (file)
--- a/Perl-RPM/RPM.pm
+++ b/Perl-RPM/RPM.pm
@@ -3,25 +3,24 @@ package RPM;
 use 5.005;
 use strict;
 use subs qw(bootstrap_Constants bootstrap_Header bootstrap_Database);
-use vars qw($VERSION $revision @ISA @EXPORT @EXPORT_OK);
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 
 require DynaLoader;
 require Exporter;
 
 @ISA = qw(Exporter DynaLoader);
-$VERSION = '0.30';
-$revision = do { my @r=(q$Revision: 1.16 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$VERSION = do { my @r=(q$Revision: 1.17 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
 
 @EXPORT = qw(rpm_osname rpm_archname);
 @EXPORT_OK = (@EXPORT, 'vercmp');
 
-bootstrap RPM $VERSION;
+bootstrap RPM;
 
 # These are stubs into the sub-module bootstraps, hacked into RPM.xs
-bootstrap_Constants($VERSION);
-bootstrap_Header($VERSION);
-bootstrap_Database($VERSION);
-bootstrap_Error($VERSION);
+bootstrap_Constants();
+bootstrap_Header();
+bootstrap_Database();
+bootstrap_Error();
 #bootstrap_Package($VERSION);
 
 1;

diff --git a/Perl-RPM/RPM/Constants.pm b/Perl-RPM/RPM/Constants.pm
index ae3f231..6b08954 100644 (file)
--- a/Perl-RPM/RPM/Constants.pm
+++ b/Perl-RPM/RPM/Constants.pm
@@ -5,7 +5,7 @@
 #
 ###############################################################################
 #
-#   $Id: Constants.pm,v 1.17 2001/04/27 08:43:23 rjray Exp $
+#   $Id: Constants.pm,v 1.18 2001/04/27 09:05:21 rjray Exp $
 #
 #   Description:    Constants for the RPM package
 #
@@ -18,7 +18,7 @@
 package RPM::Constants;
 
 use strict;
-use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS $VERSION $revision $AUTOLOAD);
+use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS $VERSION $AUTOLOAD);
 
 require Exporter;
 
@@ -26,8 +26,7 @@ use RPM;
 
 @ISA = qw(Exporter);
 
-$VERSION = '0.30';
-$revision = do { my @r=(q$Revision: 1.17 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$VERSION = do { my @r=(q$Revision: 1.18 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
 
 @EXPORT_OK = qw(
                 CHECKSIG_GPG

diff --git a/Perl-RPM/RPM/Database.pm b/Perl-RPM/RPM/Database.pm
index af4c2b2..b643b94 100644 (file)
--- a/Perl-RPM/RPM/Database.pm
+++ b/Perl-RPM/RPM/Database.pm
@@ -5,7 +5,7 @@
 #
 ###############################################################################
 #
-#   $Id: Database.pm,v 1.16 2001/03/08 06:12:32 rjray Exp $
+#   $Id: Database.pm,v 1.17 2001/04/27 09:05:21 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
@@ -29,14 +29,13 @@ package RPM::Database;
 require 5.005;
 
 use strict;
-use vars qw($VERSION $revision %RPM $RPM);
+use vars qw($VERSION %RPM $RPM);
 use subs qw(new import);
 
 require RPM;
 require RPM::Header;
 
-$VERSION = '0.30';
-$revision = do { my @r=(q$Revision: 1.16 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$VERSION = do { my @r=(q$Revision: 1.17 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
 
 1;
 

diff --git a/Perl-RPM/RPM/Error.pm b/Perl-RPM/RPM/Error.pm
index 71b147d..eb12b1d 100644 (file)
--- a/Perl-RPM/RPM/Error.pm
+++ b/Perl-RPM/RPM/Error.pm
@@ -7,7 +7,7 @@
 #
 ###############################################################################
 #
-#   $Id: Error.pm,v 1.9 2001/03/08 06:12:32 rjray Exp $
+#   $Id: Error.pm,v 1.10 2001/04/27 09:05:21 rjray Exp $
 #
 #   Description:    Error-management support that cooperates with the primary
 #                   Perl/C error glue.
@@ -26,15 +26,14 @@ package RPM::Error;
 
 use 5.005;
 use strict;
-use vars qw(@ISA $VERSION $revision @EXPORT @EXPORT_OK);
+use vars qw(@ISA $VERSION @EXPORT @EXPORT_OK);
 
 require Exporter;
 require RPM;
 
 @ISA = qw(Exporter);
 
-$VERSION = '0.30';
-$revision = do { my @r=(q$Revision: 1.9 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$VERSION = do { my @r=(q$Revision: 1.10 $=~/\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 53fd657..d6c4860 100644 (file)
--- a/Perl-RPM/RPM/Header.pm
+++ b/Perl-RPM/RPM/Header.pm
@@ -5,7 +5,7 @@
 #
 ###############################################################################
 #
-#   $Id: Header.pm,v 1.19 2001/03/08 06:12:32 rjray Exp $
+#   $Id: Header.pm,v 1.20 2001/04/27 09:05:21 rjray Exp $
 #
 #   Description:    The RPM::Header class provides access to the RPM Header
 #                   structure as a tied hash, allowing direct access to the
@@ -29,7 +29,7 @@ package RPM::Header;
 require 5.005;
 
 use strict;
-use vars qw($VERSION $revision @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $AUTOLOAD);
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $AUTOLOAD);
 use subs qw(new AUTOLOAD filenames);
 
 require Exporter;
@@ -38,8 +38,7 @@ use RPM;
 use RPM::Error;
 use RPM::Constants ':rpmerr';
 
-$VERSION = '0.30';
-$revision = do { my @r=(q$Revision: 1.19 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$VERSION = do { my @r=(q$Revision: 1.20 $=~/\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 797c51e..6db2205 100644 (file)
--- a/Perl-RPM/RPM/Package.pm
+++ b/Perl-RPM/RPM/Package.pm
@@ -7,7 +7,7 @@
 #
 ###############################################################################
 #
-#   $Id: Package.pm,v 1.9 2001/03/08 06:12:32 rjray Exp $
+#   $Id: Package.pm,v 1.10 2001/04/27 09:05:21 rjray Exp $
 #
 #   Description:    Perl-level glue and such for the RPM::Package class, the
 #                   methods and accessors to package operations.
@@ -26,15 +26,14 @@ package RPM::Package;
 
 use 5.005;
 use strict;
-use vars qw($VERSION $revision @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $AUTOLOAD);
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $AUTOLOAD);
 use subs qw(AUTOLOAD);
 
 require Exporter;
 
 use RPM;
 
-$VERSION = '0.30';
-$revision = do { my @r=(q$Revision: 1.9 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$VERSION = do { my @r=(q$Revision: 1.10 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
 
 @ISA = qw(Exporter);
 @EXPORT = ();

diff --git a/Perl-RPM/RPM/Transaction.pm b/Perl-RPM/RPM/Transaction.pm
index 840421c..8984bc0 100644 (file)
--- a/Perl-RPM/RPM/Transaction.pm
+++ b/Perl-RPM/RPM/Transaction.pm
@@ -7,7 +7,7 @@
 #
 ###############################################################################
 #
-#   $Id: Transaction.pm,v 1.7 2001/03/08 06:12:32 rjray Exp $
+#   $Id: Transaction.pm,v 1.8 2001/04/27 09:05:21 rjray Exp $
 #
 #   Description:    Perl-level glue and such for the RPM::Transaction class,
 #                   the methods and accessors to transaction operations.
@@ -28,15 +28,14 @@ package RPM::Package;
 
 use 5.005;
 use strict;
-use vars qw($VERSION $revision);
+use vars qw($VERSION);
 use subs qw();
 
 use RPM;
 use RPM::Header;
 use RPM::Package;
 
-$VERSION = '0.30';
-$revision = do { my @r=(q$Revision: 1.7 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$VERSION = do { my @r=(q$Revision: 1.8 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
 
 1;