From 57bff0b452600b03bf860a23386f52839886f7cd Mon Sep 17 00:00:00 2001
From: Tobias Quathamer <toddy>
Date: Tue, 6 Jun 2017 10:29:14 +0000
Subject: 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
---
 Perl/Local/Util.pm    | 2 +-
 Perl/Local/VCS_CVS.pm | 4 +---
 2 files changed, 2 insertions(+), 4 deletions(-)

(limited to 'Perl')

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;
 }
-
-
-- 
cgit v1.2.3