Use croak/carp instead of die/warn (PBP)

This commit is contained in:
Dan Church 2023-07-20 14:30:05 -05:00
parent 4e2e94881b
commit 3e96b9bc19
Signed by: h3xx
GPG key ID: EA2BF379CD2CDBD0
3 changed files with 8 additions and 5 deletions

View file

@ -3,6 +3,7 @@ use strict;
use warnings;
use Test::More 'no_plan';
use Carp qw/ croak /;
use TestFunctions;
@ -20,7 +21,7 @@ sub put_file {
my $bytes = 1048576; # 1 MB
foreach my $file (@files) {
open my $fh, '>', $file
or die "Failed to open file $file for writing: $!";
or croak("Failed to open file $file for writing: $!");
for (my $bytes_written = 0; $bytes_written < $bytes; ++$bytes_written) {
print $fh 'A';
}