diff options
Diffstat (limited to '_testing')
| -rw-r--r-- | _testing/_irssi_test.pl | 21 | ||||
| -rw-r--r-- | _testing/travis/update-scripts-yaml.pl | 31 |
2 files changed, 26 insertions, 26 deletions
diff --git a/_testing/_irssi_test.pl b/_testing/_irssi_test.pl index 1da8f59..bcfcb3c 100644 --- a/_testing/_irssi_test.pl +++ b/_testing/_irssi_test.pl @@ -18,6 +18,21 @@ Irssi::command('^window log off'); my ($package) = grep { !/^_/ } keys %Irssi::Script::; require YAML::Tiny; +YAML::Tiny->VERSION("1.59"); +require Encode; +{ + # This is an ugly hack to be `lax' about the encoding. We try to + # read everything as UTF-8 regardless of declared file encoding + # and fall back to Latin-1. + my $orig = YAML::Tiny->can("_has_internal_string_value"); + *YAML::Tiny::_has_internal_string_value = sub { + my $ret = $orig->(@_); + use bytes; + $_[0] = Encode::decode_utf8($_[0], sub{pack 'U', +shift}) + unless Encode::is_utf8($_[0]); + $ret + } +} require Module::CoreList; require CPAN::Meta::Requirements; require Perl::PrereqScanner; @@ -32,8 +47,7 @@ my (%info, $version); unless (defined $package) { my %fail = (failed => 1, name => $CURRENT_SCRIPT); $fail{modules} = \@modules if @modules; - { open my $ef, '>:utf8', "failed.yml"; - print $ef YAML::Tiny::Dump([\%fail]); } + YAML::Tiny::DumpFile("failed.yml", [\%fail]); # Grep for the code instead require PPI; require PPIx::XPath; @@ -74,5 +88,4 @@ if ($loginfo) { } $info{modules} = \@modules if @modules; $info{default_package} = $package =~ s/::$//r if $package; -{ open my $ef, '>:utf8', "info.yml"; - print $ef YAML::Tiny::Dump([\%info]); } +YAML::Tiny::DumpFile("info.yml", [\%info]); diff --git a/_testing/travis/update-scripts-yaml.pl b/_testing/travis/update-scripts-yaml.pl index 5762096..0ed52ac 100644 --- a/_testing/travis/update-scripts-yaml.pl +++ b/_testing/travis/update-scripts-yaml.pl @@ -1,19 +1,10 @@ use strict; use warnings; -use YAML::Tiny; -use Scalar::Util; -BEGIN { - sub YAML::Tiny::_has_internal_string_value { - !Scalar::Util::looks_like_number($_[0]) - } -} +use YAML::Tiny 1.59; -my @config; -if (open my $ef, '<:utf8', '_testing/config.yml') { - @config = Load(do { local $/; <$ef> }); -} +my $config = YAML::Tiny::LoadFile('_testing/config.yml'); my @yaml_keys; -if (@config) { - @yaml_keys = @{ $config[0]{scripts_yaml_keys}//[] }; +if ($config) { + @yaml_keys = @{ $config->{scripts_yaml_keys}//[] }; } die "no keys defined in config.yaml\n" unless @yaml_keys; @@ -75,14 +66,12 @@ my @newdoc = map { } sort @yaml_keys } } sort keys %newmeta; -{ open my $ef, '>:utf8', '_data/scripts.yaml' or die $!; - print $ef Dump \@newdoc; -} +YAML::Tiny::DumpFile('_data/scripts.yaml', \@newdoc); -if (@config && @{$config[0]{whitelist}//[]}) { +if ($config && @{$config->{whitelist}//[]}) { my $changed; my @wl; - for my $sf (@{$config[0]{whitelist}}) { + for my $sf (@{$config->{whitelist}}) { if (-s "Test/$sf:passed") { $changed = 1; } @@ -91,10 +80,8 @@ if (@config && @{$config[0]{whitelist}//[]}) { } } if ($changed) { - $config[0]{whitelist} = \@wl; - { open my $ef, '>:utf8', '_testing/config.yml' or die $!; - print $ef Dump @config; - } + $config->{whitelist} = \@wl; + YAML::Tiny::DumpFile('_testing/config.yml', $config); } } |