Added exit on failure to tie

CVS patchset: 3800
CVS date: 2000/06/02 07:53:39

diff --git a/Perl-RPM/t/01_database.t b/Perl-RPM/t/01_database.t
index badd066..c55aab6 100755 (executable)
--- a/Perl-RPM/t/01_database.t
+++ b/Perl-RPM/t/01_database.t
@@ -10,6 +10,12 @@ print "1..11\n";
 tie %DB, "RPM::Database" or print "not ";
 print "ok 1\n";
 
+unless (tied %DB)
+{
+    die "$RPM::err";
+    exit -1;
+}
+
 # This package must exist, obviously
 $rpm = $DB{rpm};
 print "not " unless (defined $rpm and ref $rpm);