blob: 8a1aba941724f568494c144adf0bbdfe2ecd5ddc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
--- 110_sort_usage_by_attr_order.t 2019-01-26 04:38:13.000000000 +0100
+++ 110_sort_usage_by_attr_order.t 2024-02-13 06:46:31.222291073 +0100
@@ -67 +67,13 @@
-$expected =~ s/^[ ]{4}/\t/xmsg;
+# Note: Getopt::Long::Descriptive 0.106 not supported
+if ( $Getopt::Long::Descriptive::VERSION >= 0.107 )
+{
+$expected = <<'USAGE';
+usage: 110_sort_usage_by_attr_order.t [-?] [long options...]
+ --[no-]help (or -?) Prints this usage information.
+ aka --usage
+ --foo STR Documentation for "foo"
+ --bar STR Documentation for "bar"
+ --baz STR Documentation for "baz"
+USAGE
+}
+$expected =~ s/^[ ]{4}/\t/xmsg unless $Getopt::Long::Descriptive::VERSION >= 0.113;
@@ -68,0 +81 @@
+
|