From 7d7f80782c6f068d941379c8c0b808647e63ef9b Mon Sep 17 00:00:00 2001
From: rjray <devnull@localhost>
Date: Tue, 8 Aug 2000 07:05:13 +0000
Subject: [PATCH] Corrected small oversight that would have prevented exporting
 both $RPM and %RPM at the same time.

CVS patchset: 4039
CVS date: 2000/08/08 07:05:13
---
 Perl-RPM/RPM/Database.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/Perl-RPM/RPM/Database.pm b/Perl-RPM/RPM/Database.pm
index 4fd6c02..43d5675 100644
--- a/Perl-RPM/RPM/Database.pm
+++ b/Perl-RPM/RPM/Database.pm
@@ -5,7 +5,7 @@
 #
 ###############################################################################
 #
-#   $Id: Database.pm,v 1.7 2000/08/07 09:28:14 rjray Exp $
+#   $Id: Database.pm,v 1.8 2000/08/08 07:05:13 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
@@ -36,7 +36,7 @@ require RPM;
 require RPM::Header;
 
 $VERSION = '0.27';
-$revision = do { my @r=(q$Revision: 1.7 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$revision = do { my @r=(q$Revision: 1.8 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
 
 1;
 
@@ -90,7 +90,8 @@ sub import
         }
         elsif ($arg eq '$RPM' and ! $RPM)
         {
-            $RPM = new RPM::Database;
+            tie %RPM, "RPM::Database" unless (tied %RPM);
+            $RPM = (tied %RPM);
             *{"${callpkg}::RPM"} = \${"${class}::RPM"};
         }
         else
-- 
2.7.4