imacat/arclog
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Simplified the code to write to the compression I/O in the test suite helper.

Browse Source
This commit is contained in:
依瑪貓 2022-03-19 09:35:03 +08:00
parent 2f11fc5f0f
commit 716af0bc85
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
t/_helper.pm
View File

@ -355,7 +355,7 @@ sub write_file($$) {
open $FH, ">$file" or die this_file . ": $file: $!";
$gz = IO::Compress::Gzip->new($FH)
or die this_file . ": $file: $IO::Compress::Gzip::GzipError";
($gz->write($content, length $content) == length $content)
($gz->write($content) == length $content)
or die this_file . ": $file: $IO::Compress::Gzip::GzipError";
$gz->close or die this_file . ": $file: $IO::Compress::Gzip::GzipError";
return;
@ -379,7 +379,7 @@ sub write_file($$) {
open $FH, ">$file" or die this_file . ": $file: $!";
$bz = IO::Compress::Bzip2->new($FH)
or die this_file . ": $file: $IO::Compress::Bzip2::Bzip2Error";
($bz->write($content, length $content) == length $content)
($bz->write($content) == length $content)
or die this_file . ": $file: $IO::Compress::Bzip2::Bzip2Error";
$bz->close or die this_file . ": $file: $IO::Compress::Bzip2::Bzip2Error";
return;
@ -403,7 +403,7 @@ sub write_file($$) {
open $FH, ">$file" or die this_file . ": $file: $!";
$xz = IO::Compress::Xz->new($FH)
or die this_file . ": $file: $IO::Compress::Xz::XzError";
($xz->write($content, length $content) == length $content)
($xz->write($content) == length $content)
or die this_file . ": $file: $IO::Compress::Xz::XzError";
$xz->close or die this_file . ": $file: $IO::Compress::Xz::XzError";
return;