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