use strict;
use warnings;
-use Fatal qw/open close/;
-use Text::Balanced qw/extract_bracketed/;
+use Fatal qw<open close>;
+use Text::Balanced qw<extract_bracketed>;
open my $hash_t, '<', 't/20-hash.t';
open my $array_t, '>', 't/30-array.t';
close $array_t;
close $array_fast_t;
-open my $hash_specific_t, '<', 't/22-hash-kv.t';
-open my $array_specific_t, '>', 't/32-array-kv.t';
+open my $hash_kv_t, '<', 't/22-hash-kv.t';
+open my $array_kv_t, '>', 't/32-array-kv.t';
$in_data = 0;
-while (<$hash_specific_t>) {
+while (<$hash_kv_t>) {
if (/^__DATA__$/) {
$in_data = 1;
} elsif (!$in_data) {
if (/\bplan\s*[\s\(]\s*tests\b/) {
s/\s*;?\s*$//;
s/^(\s*)//;
- $_ = "$1if (\$] >= 5.011) { $_ } else { plan skip_all => 'perl 5.11 required for keys/values \@array' }\n";
+ $_ = qq($1if ("\$]" >= 5.011) { $_ } else { plan skip_all => 'perl 5.11 required for keys/values \@array' }\n);
}
} else {
$_ = convert_testcase($_, 1);
}
- print $array_specific_t $_;
+ print $array_kv_t $_;
}