This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
DBM_Filter test: use std test preamble
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 16 May 2007 05:29:17 +0000 (08:29 +0300)
committerSteve Peters <steve@fisharerojo.org>
Wed, 16 May 2007 03:39:44 +0000 (03:39 +0000)
Message-Id: <200705160229.l4G2THSE421947@kosh.hut.fi>

p4raw-id: //depot/perl@31227

lib/DBM_Filter/t/01error.t

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