From 03d43275660f66d88a21258c9ec6ff77651b3751 Mon Sep 17 00:00:00 2001
From: rjray <devnull@localhost>
Date: Fri, 2 Jun 2000 07:53:39 +0000
Subject: [PATCH] Added exit on failure to tie

CVS patchset: 3800
CVS date: 2000/06/02 07:53:39
---
 Perl-RPM/t/01_database.t | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/Perl-RPM/t/01_database.t b/Perl-RPM/t/01_database.t
index badd066d3..c55aab6c3 100755
--- 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);