1BEGIN {
2    if ($ENV{PERL_CORE}) {
3	chdir 't' if -d 't';
4	@INC = ("../lib", "lib/compress");
5    }
6}
7
8use lib qw(t t/compress);
9use strict;
10use warnings;
11
12use IO::Compress::Bzip2     qw($Bzip2Error) ;
13use IO::Uncompress::Bunzip2 qw($Bunzip2Error) ;
14
15sub identify
16{
17    'IO::Compress::Bzip2';
18}
19
20require "tied.pl" ;
21run();
22