Added exit on failure to tie

CVS patchset: 3800 CVS date: 2000/06/02 07:53:39
2000-06-02 07:53:39 +00:00 · 2000-06-02 07:53:39 +00:00 · 03d4327566
parent 14698620a5
commit 03d4327566
1 changed files with 6 additions and 0 deletions
--- 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);