CI: Add underscores to long number (PBP)

This commit is contained in:
Dan Church 2023-07-20 15:29:45 -05:00
parent a8db0b17fe
commit d13f8ff83c
Signed by: h3xx
GPG key ID: EA2BF379CD2CDBD0

View file

@ -18,7 +18,7 @@ ok "freed 1,048,576 bytes (1 MB)\n" eq $stderr, 'prints freed bytes with commas'
sub put_file { sub put_file {
my @files = @_; my @files = @_;
my $bytes = 1048576; # 1 MB my $bytes = 1_048_576; # 1 MB
foreach my $file (@files) { foreach my $file (@files) {
open my $fh, '>', $file open my $fh, '>', $file
or croak("Failed to open file $file for writing: $!"); or croak("Failed to open file $file for writing: $!");