Debian lenny version packages
[pkg-perl] / deb-src / libio-compress-zlib-perl / libio-compress-zlib-perl-2.012 / t / 107multi-rawdeflate.t
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
12 use IO::Compress::RawDeflate   qw($RawDeflateError) ;
13 use IO::Uncompress::RawInflate qw($RawInflateError) ;
14
15 sub identify
16 {
17     'IO::Compress::RawDeflate';
18 }
19
20 require "multi.pl" ;
21 run();