DBM_Filter test: use std test preamble

Message-Id: <200705160229.l4G2THSE421947@kosh.hut.fi>

p4raw-id: //depot/perl@31227

diff --git a/lib/DBM_Filter/t/01error.t b/lib/DBM_Filter/t/01error.t
index e16d8d1..1aff972 100644 (file)
--- a/lib/DBM_Filter/t/01error.t
+++ b/lib/DBM_Filter/t/01error.t
@@ -1,9 +1,12 @@
-
 use strict;
 use warnings;
 use Carp;
 
-use lib '.';
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = qw(. ../lib);
+}
+
 our $db ;
 
 {