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 (executable)
--- 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'));