diff options
author | Tobias Quathamer <toddy> | 2017-06-06 10:29:14 +0000 |
---|---|---|
committer | Tobias Quathamer <toddy> | 2017-06-06 10:29:14 +0000 |
commit | 57bff0b452600b03bf860a23386f52839886f7cd (patch) | |
tree | e558f446b0c65daf4a80b25eec14eccdbb1b4410 | |
parent | 755893e6e0cd2bdf43a98ad6c7d58a4d54b496a6 (diff) |
Perl 5.21 added a new warning when too many arguments are passed to sprintf.
CVS version numbers
Perl/Local/Util.pm: 1.3 -> 1.4
Perl/Local/VCS_CVS.pm: 1.12 -> 1.13
-rw-r--r-- | Perl/Local/Util.pm | 2 | ||||
-rw-r--r-- | Perl/Local/VCS_CVS.pm | 4 |
2 files changed, 2 insertions, 4 deletions
diff --git a/Perl/Local/Util.pm b/Perl/Local/Util.pm index 142b513f5dc..8b11106e8d1 100644 --- a/Perl/Local/Util.pm +++ b/Perl/Local/Util.pm @@ -30,7 +30,7 @@ use warnings; BEGIN { use base qw( Exporter ); - our $VERSION = sprintf "%d", q$Revision$ =~ /(\d+)/g; + our $VERSION = sprintf "%s", q$Revision$ =~ /([0-9.]+)/; our @EXPORT_OK = qw( uniq read_file ); our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] ); } diff --git a/Perl/Local/VCS_CVS.pm b/Perl/Local/VCS_CVS.pm index e5b53d65507..ef93c482947 100644 --- a/Perl/Local/VCS_CVS.pm +++ b/Perl/Local/VCS_CVS.pm @@ -52,7 +52,7 @@ use warnings; BEGIN { use base qw( Exporter ); - our $VERSION = sprintf "%d", q$Revision$ =~ /(\d+)/g; + our $VERSION = sprintf "%s", q$Revision$ =~ /([0-9.]+)/; our @EXPORT_OK = qw( &vcs_cmp_rev &vcs_count_changes &vcs_get_topdir @@ -796,5 +796,3 @@ sub svn_get_depth # field at the beginning return $num - 1; } - - |