diff options
author | Russ Allbery <rra@cpan.org> | 2022-01-15 16:56:50 -0800 |
---|---|---|
committer | Russ Allbery <rra@cpan.org> | 2022-01-15 16:56:50 -0800 |
commit | eeb7a7c9964bf175fe626cde3506527c86882e9a (patch) | |
tree | 4c908af8f35da719d801274fc20cc04d29df09e9 | |
parent | f7c5635fda62fea564c3c30f2393ab3e74951f31 (diff) |
Update to rra-c-util 10.2 (unreleased)
Pick up a formatting fix for Test::RRA::ModuleVersion.
-rw-r--r-- | t/lib/Test/RRA.pm | 2 | ||||
-rw-r--r-- | t/lib/Test/RRA/Config.pm | 2 | ||||
-rw-r--r-- | t/lib/Test/RRA/ModuleVersion.pm | 12 |
3 files changed, 7 insertions, 9 deletions
diff --git a/t/lib/Test/RRA.pm b/t/lib/Test/RRA.pm index c432d0c..2e34bf5 100644 --- a/t/lib/Test/RRA.pm +++ b/t/lib/Test/RRA.pm @@ -52,7 +52,7 @@ BEGIN { # This version should match the corresponding rra-c-util release, but with # two digits for the minor version, including a leading zero if necessary, # so that it will sort properly. - $VERSION = '10.01'; + $VERSION = '10.02'; } # Compare a string to the contents of a file, similar to the standard is() diff --git a/t/lib/Test/RRA/Config.pm b/t/lib/Test/RRA/Config.pm index 75419ea..a2ba32c 100644 --- a/t/lib/Test/RRA/Config.pm +++ b/t/lib/Test/RRA/Config.pm @@ -32,7 +32,7 @@ BEGIN { # This version should match the corresponding rra-c-util release, but with # two digits for the minor version, including a leading zero if necessary, # so that it will sort properly. - $VERSION = '10.01'; + $VERSION = '10.02'; } # If C_TAP_BUILD or C_TAP_SOURCE are set in the environment, look for diff --git a/t/lib/Test/RRA/ModuleVersion.pm b/t/lib/Test/RRA/ModuleVersion.pm index d01c14b..aed52c1 100644 --- a/t/lib/Test/RRA/ModuleVersion.pm +++ b/t/lib/Test/RRA/ModuleVersion.pm @@ -29,7 +29,7 @@ BEGIN { # This version should match the corresponding rra-c-util release, but with # two digits for the minor version, including a leading zero if necessary, # so that it will sort properly. - $VERSION = '10.01'; + $VERSION = '10.02'; } # A regular expression matching the version string for a module using the @@ -103,9 +103,7 @@ sub _module_version { my ($file) = @_; open(my $data, q{<}, $file) or die "$0: cannot open $file: $!\n"; while (defined(my $line = <$data>)) { - if ( $line =~ $REGEX_VERSION_PACKAGE - || $line =~ $REGEX_VERSION_OLD) - { + if ($line =~ $REGEX_VERSION_PACKAGE || $line =~ $REGEX_VERSION_OLD) { my ($prefix, $version, $suffix) = ($1, $2, $3); close($data) or die "$0: error reading from $file: $!\n"; return $version; @@ -140,8 +138,8 @@ sub _update_module_version { or die "$0: cannot create $file.new: $!\n"; SCAN: while (defined(my $line = <$in>)) { - if ( $line =~ s{ $REGEX_VERSION_PACKAGE }{$1$version$3}xms - || $line =~ s{ $REGEX_VERSION_OLD }{$1$old_version$3}xms) + if ($line =~ s{ $REGEX_VERSION_PACKAGE }{$1$version$3}xms + || $line =~ s{ $REGEX_VERSION_OLD }{$1$old_version$3}xms) { print {$out} $line or die "$0: cannot write to $file.new: $!\n"; last SCAN; @@ -265,7 +263,7 @@ Russ Allbery <eagle@eyrie.org> =head1 COPYRIGHT AND LICENSE -Copyright 2016, 2018-2020 Russ Allbery <eagle@eyrie.org> +Copyright 2016, 2018-2020, 2022 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 |