Searched refs:gzip_write_open (Results 1 – 2 of 2) sorted by relevance
302 my $gzip_write_open = "| gzip > %s";330 sub gzip_write_open subroutine332 $gzip_write_open;381 $gzip_write_open = shift;384 unless $gzip_write_open =~ /^\s*\|.+%s.*$/;659 my $wopen = sprintf($gzip_write_open, $filename);
50 ok(7, IO::Zlib::gzip_write_open() eq '| gzip > %s');123 eval "use IO::Zlib ':gzip_write_open' => '$new_write'";125 ok(34, IO::Zlib::gzip_write_open() eq $new_write);127 eval "use IO::Zlib ':gzip_write_open' => 'bad'";129 ok(35, $@ =~ /^IO::Zlib::import: ':gzip_write_open' 'bad' is illegal /);