From: rjray <devnull@localhost>
Date: Fri, 2 Jun 2000 07:54:07 +0000 (+0000)
Subject: moved tie until after the test-range print, in case of tie-failure
X-Git-Tag: rpm-4.4-release~2134
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=631e0079b8473f017670a2cff5f60d9ba90d42a4;p=platform%2Fupstream%2Frpm.git

moved tie until after the test-range print, in case of tie-failure

CVS patchset: 3801
CVS date: 2000/06/02 07:54:07
---

diff --git a/Perl-RPM/t/02_headers.t b/Perl-RPM/t/02_headers.t
index a20457b..01460be 100755
--- a/Perl-RPM/t/02_headers.t
+++ b/Perl-RPM/t/02_headers.t
@@ -5,10 +5,10 @@ use RPM::Database;
 
 chomp($rpmstr = qx{rpm -q rpm});
 
-tie %DB, "RPM::Database";
-
 print "1..8\n";
 
+tie %DB, "RPM::Database" or die "$RPM::err";
+
 # Are we getting RPM::Header objects from the database?
 $hdr = $DB{rpm};
 print "not " unless (ref($hdr) and $hdr->isa('RPM::Header'));