1*b39c5158SmillertBEGIN { 2*b39c5158Smillert if ($ENV{PERL_CORE}) { 3*b39c5158Smillert chdir 't' if -d 't'; 4*b39c5158Smillert @INC = ("../lib", "lib/compress"); 5*b39c5158Smillert } 6*b39c5158Smillert} 7*b39c5158Smillert 8*b39c5158Smillertuse lib qw(t t/compress); 9*b39c5158Smillertuse strict; 10*b39c5158Smillertuse warnings; 11*b39c5158Smillert 12*b39c5158Smillertuse IO::Compress::Deflate qw($DeflateError) ; 13*b39c5158Smillertuse IO::Uncompress::Inflate qw($InflateError) ; 14*b39c5158Smillert 15*b39c5158Smillertsub identify 16*b39c5158Smillert{ 17*b39c5158Smillert 'IO::Compress::Deflate'; 18*b39c5158Smillert} 19*b39c5158Smillert 20*b39c5158Smillertrequire "tied.pl" ; 21*b39c5158Smillertrun(); 22