From: rjray <devnull@localhost>
Date: Fri, 2 Jun 2000 07:53:39 +0000 (+0000)
Subject: Added exit on failure to tie
X-Git-Tag: tznext/4.11.0.1.tizen20130304~8360
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=03d43275660f66d88a21258c9ec6ff77651b3751;p=tools%2Flibrpm-tizen.git

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
--- 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);