From 18376c39404488a120e7992d68cd7ddf7e0e6fa6 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20R=C4=99korajski?= <baggins@pld-linux.org>
Date: Fri, 31 Aug 2018 18:20:24 +0200
Subject: [PATCH] - fix Getopt::Long version detection - rel 4

---
 perl-modules | 1 +
 perl.spec    | 6 +++++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/perl-modules b/perl-modules
index 7be7d8f..e7e58ab 100644
--- a/perl-modules
+++ b/perl-modules
@@ -25,6 +25,7 @@ File::Temp = 0.2304
 Filter::Simple = 0.95
 FindBin = 1.51
 GDBM_File = 1.17
+Getopt::Long = 2.50
 Hash::Util = 0.22
 I18N::LangTags = 0.43
 IO = 1.39
diff --git a/perl.spec b/perl.spec
index 4166789..1840d5b 100644
--- a/perl.spec
+++ b/perl.spec
@@ -44,7 +44,7 @@
 %define		perl_mod2version()	%([ -f %{SOURCE4} ] && awk -vp=%1 '$1 == p { m=$2; printf("perl-%s = %s\\n", p, $4)}END{if (!m) printf("# Error looking up [%s]\\n", p) }' %{SOURCE4} || echo ERROR)
 
 %define		ver	5.28.0
-%define		rel	3
+%define		rel	4
 Summary:	Practical Extraction and Report Language (Perl)
 Summary(cs.UTF-8):	Programovací jazyk Perl
 Summary(da.UTF-8):	Programmeringssproget Perl
@@ -943,6 +943,10 @@ for m in $(awk '!/^#/ && !/^$/{print $1}' %{SOURCE3}); do
 	ExtUtils::CBuilder|Compress::Raw::Bzip2|Compress::Raw::Zlib)
 		v=$(%{__perl} -M$m -e "print version->parse(\$$m::VERSION)->numify")
 		;;
+	# this module has VERSION encoded as int in a way that it loses trailing 0
+	Getopt::Long)
+		v=$(%{__perl} -M$m -e "print \$$m::VERSION_STRING")
+		;;
 	*)
 		v=$(%{__perl} -M$m -e "print \$$m::VERSION")
 		;;
-- 
2.44.0