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';
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);