diff options
author | Russ Allbery <rra@cpan.org> | 2019-08-31 19:18:46 -0700 |
---|---|---|
committer | Russ Allbery <rra@cpan.org> | 2019-08-31 19:18:46 -0700 |
commit | daabc1250880b2221fe194c24880efbfa64aed20 (patch) | |
tree | e89c67aecff0581c9c7419ef588ee506b1df7f54 /t | |
parent | 4ba4bdd35cdbf942eeb5c94c7a66941431a70a5e (diff) |
Update formatting for perltidy 20190601
Diffstat (limited to 't')
-rwxr-xr-x | t/config/basic.t | 2 | ||||
-rw-r--r-- | t/lib/Test/RRA/ModuleVersion.pm | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/t/config/basic.t b/t/config/basic.t index a6d6dd1..005072b 100755 --- a/t/config/basic.t +++ b/t/config/basic.t @@ -25,7 +25,7 @@ my $dataroot = File::Spec->catfile('t', 'data', 'generate'); # Load a test configuration and check a few inobvious pieces of it. my $metadata_path = File::Spec->catfile($dataroot, 'ansicolor', 'metadata'); -my $config = App::DocKnot::Config->new({ metadata => $metadata_path }); +my $config = App::DocKnot::Config->new({ metadata => $metadata_path }); isa_ok($config, 'App::DocKnot::Config'); my $data_ref = $config->config(); is($data_ref->{build}{install}, 1, 'build/install defaults to 1'); diff --git a/t/lib/Test/RRA/ModuleVersion.pm b/t/lib/Test/RRA/ModuleVersion.pm index 814315f..549213f 100644 --- a/t/lib/Test/RRA/ModuleVersion.pm +++ b/t/lib/Test/RRA/ModuleVersion.pm @@ -139,7 +139,7 @@ sub _update_module_version { } # Scan for the version and replace it. - open(my $in, q{<}, $file) or die "$0: cannot open $file: $!\n"; + open(my $in, q{<}, $file) or die "$0: cannot open $file: $!\n"; open(my $out, q{>}, "$file.new") or die "$0: cannot create $file.new: $!\n"; SCAN: @@ -155,8 +155,8 @@ sub _update_module_version { # Copy the rest of the input file to the output file. print {$out} <$in> or die "$0: cannot write to $file.new: $!\n"; - close($out) or die "$0: cannot flush $file.new: $!\n"; - close($in) or die "$0: error reading from $file: $!\n"; + close($out) or die "$0: cannot flush $file.new: $!\n"; + close($in) or die "$0: error reading from $file: $!\n"; # All done. Rename the new file over top of the old file. rename("$file.new", $file) @@ -269,7 +269,7 @@ Russ Allbery <eagle@eyrie.org> =head1 COPYRIGHT AND LICENSE -Copyright 2016, 2018 Russ Allbery <eagle@eyrie.org> +Copyright 2016, 2018, 2019 Russ Allbery <eagle@eyrie.org> Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal |