Hello community,
here is the log from the commit of package perl-mousex-getopt for
openSUSE:Factory checked in at 2018-09-13 12:10:59
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-mousex-getopt (Old)
and /work/SRC/openSUSE:Factory/.perl-mousex-getopt.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-mousex-getopt"
Thu Sep 13 12:10:59 2018 rev:5 rq:634965 version:0.37
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-mousex-getopt/perl-mousex-getopt.changes
2016-08-15 10:31:47.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-mousex-getopt.new/perl-mousex-getopt.changes
2018-09-13 12:11:02.766325678 +0200
@@ -1,0 +2,5 @@
+Tue Sep 11 12:23:07 UTC 2018 - Dirk Stoecker <[email protected]>
+
+- support of Getopt::Long::Descriptive version 1.103
(91da15eed08ede5d7486ccc3eec9b70ae493d627.patch)
+
+-------------------------------------------------------------------
New:
----
91da15eed08ede5d7486ccc3eec9b70ae493d627.patch
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-mousex-getopt.spec ++++++
--- /var/tmp/diff_new_pack.i0gqc5/_old 2018-09-13 12:11:03.150325246 +0200
+++ /var/tmp/diff_new_pack.i0gqc5/_new 2018-09-13 12:11:03.154325242 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-mousex-getopt
#
-# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -23,8 +23,8 @@
Summary: A Mouse role for processing command line options
License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
-Url: http://search.cpan.org/dist/%{cpan_name}/
-Source:
http://search.cpan.org/CPAN/authors/id/G/GF/GFUJI/%{cpan_name}-%{version}.tar.gz
+Url: https://metacpan.org/release/%{cpan_name}
+Source:
https://cpan.metacpan.org/authors/id/G/GF/GFUJI/%{cpan_name}-%{version}.tar.gz
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
@@ -51,6 +51,8 @@
Requires: perl(Mouse::Meta::Attribute)
Requires: perl(Mouse::Role)
Requires: perl(Mouse::Util::TypeConstraints)
+# PATCH-FIX-UPSTREAM
https://github.com/gfx/mousex-getopt/commit/91da15eed08ede5d7486ccc3eec9b70ae493d627
+Patch1: 91da15eed08ede5d7486ccc3eec9b70ae493d627.patch
%{perl_requires}
%description
@@ -59,6 +61,7 @@
%prep
%setup -q -n %{cpan_name}-%{version}
+%autopatch -p1
%build
%{__perl} Build.PL --installdirs=vendor
++++++ 91da15eed08ede5d7486ccc3eec9b70ae493d627.patch ++++++
>From 91da15eed08ede5d7486ccc3eec9b70ae493d627 Mon Sep 17 00:00:00 2001
From: Paul Howarth <[email protected]>
Date: Tue, 21 Aug 2018 16:47:12 +0100
Subject: [PATCH] Cope with GLD output changes in version 0.103
The output text format of Getopt::Long::Descriptive changed yet again
at version 0.103 and broke some of the tests. This change fixes the
tests without breaking compatibility with older versions of
Getopt::Long::Descriptive.
---
t/104_override_usage.t | 6 ++++++
t/107_no_auto_help.t | 2 +-
t/109_help_flag.t | 2 +-
t/110_sort_usage_by_attr_order.t | 10 ++++++++++
4 files changed, 18 insertions(+), 2 deletions(-)
diff --git a/t/104_override_usage.t b/t/104_override_usage.t
index bdee6c6..bc45029 100644
--- a/t/104_override_usage.t
+++ b/t/104_override_usage.t
@@ -55,9 +55,15 @@ use Test::Exception;
\t--foo INT A foo
}
:
+ $Getopt::Long::Descriptive::VERSION < 0.103 ?
qq{usage: 104_override_usage.t [-?] [long options...]
\t-? --usage --help Prints this usage information.
\t--foo INT A foo
+}
+ :
+ qq{usage: 104_override_usage.t [-?] [long options...]
+\t-? --[no-]usage --[no-]help Prints this usage information.
+\t--foo INT A foo
}
];
diff --git a/t/107_no_auto_help.t b/t/107_no_auto_help.t
index 1091fd2..27f87f5 100644
--- a/t/107_no_auto_help.t
+++ b/t/107_no_auto_help.t
@@ -60,7 +60,7 @@ END {
warning_like {
throws_ok { Class->new_with_options }
#usage: 107_no_auto_help.t [-?] [long options...]
- qr/^usage: [\d\w]+\Q.t [-?] [long options...]\E.\s+\Q-? --usage
--help\E\s+\QPrints this usage information.\E.\s+--configfile/ms,
+ qr/^usage: [\d\w]+\Q.t [-?] [long options...]\E.\s+\Q-?
--\E(\[no-\])?usage --(\[no-\])?\Qhelp\E\s+\QPrints this usage
information.\E.\s+--configfile/ms,
'usage information looks good';
}
qr/^Specified configfile \'this_value_unimportant\' does not exist, is
empty, or is not readable$/,
diff --git a/t/109_help_flag.t b/t/109_help_flag.t
index adc6e0c..8c658e2 100644
--- a/t/109_help_flag.t
+++ b/t/109_help_flag.t
@@ -40,7 +40,7 @@ foreach my $args ( ['--help'], ['--usage'], ['--?'], ['-?'] )
local @ARGV = @$args;
throws_ok { MyClass->new_with_options() }
- qr/^usage: (?:[\d\w]+)\Q.t [-?] [long options...]\E.^\t\Q-? --usage
--help\E\s+\QPrints this usage information.\E$/ms,
+ qr/^usage: (?:[\d\w]+)\Q.t [-?] [long options...]\E.^\t\Q-?
--\E(\[no-\])?usage --(\[no-\])?help\s+\QPrints this usage information.\E$/ms,
'Help request detected; usage information properly printed';
}
diff --git a/t/110_sort_usage_by_attr_order.t b/t/110_sort_usage_by_attr_order.t
index 3eb4a49..e7dd177 100644
--- a/t/110_sort_usage_by_attr_order.t
+++ b/t/110_sort_usage_by_attr_order.t
@@ -54,6 +54,16 @@ usage: 110_sort_usage_by_attr_order.t [-?] [long options...]
--baz STR Documentation for "baz"
USAGE
}
+if ( $Getopt::Long::Descriptive::VERSION >= 0.103 )
+{
+$expected = <<'USAGE';
+usage: 110_sort_usage_by_attr_order.t [-?] [long options...]
+ -? --[no-]usage --[no-]help Prints this usage information.
+ --foo STR Documentation for "foo"
+ --bar STR Documentation for "bar"
+ --baz STR Documentation for "baz"
+USAGE
+}
$expected =~ s/^[ ]{4}/\t/xmsg;
is($obj->usage->text, $expected, 'Usage text has nicely sorted options');
