From 8731ce7b0e9daa4613d7d1ccc1bd5ea4d6a41ede Mon Sep 17 00:00:00 2001
From: xujing <xujing125@huawei.com>
Date: Thu, 20 Oct 2022 20:25:08 +0800
Subject: [PATCH] remove useless test

(cherry picked from commit c337212114e646acf7d8afcb01e28c40c2cb91d7)
---
 backport-remove-useless-test.patch | 44 ++++++++++++++++++++++++++++++
 perl-Pod-Simple.spec               |  7 ++++-
 2 files changed, 50 insertions(+), 1 deletion(-)
 create mode 100644 backport-remove-useless-test.patch

diff --git a/backport-remove-useless-test.patch b/backport-remove-useless-test.patch
new file mode 100644
index 0000000..bf9c060
--- /dev/null
+++ b/backport-remove-useless-test.patch
@@ -0,0 +1,44 @@
+From 909c734f9aefb278aba105b008e118125ccf9194 Mon Sep 17 00:00:00 2001
+From: Graham Knop <haarg@haarg.org>
+Date: Mon, 16 May 2022 14:36:00 +0200
+Subject: [PATCH] remove useless test
+
+The 20_skip test appears to exist only to test skipping. Which is not
+this module's responsibility.
+---
+ t/20_skip.t | 23 -----------------------
+ 1 file changed, 23 deletions(-)
+ delete mode 100644 t/20_skip.t
+
+diff --git a/t/20_skip.t b/t/20_skip.t
+deleted file mode 100644
+index a9fdac3..0000000
+--- a/t/20_skip.t
++++ /dev/null
+@@ -1,23 +0,0 @@
+-# 20 skip under 5.8
+-
+-use strict;
+-use warnings;
+-
+-BEGIN {
+-    if($ENV{PERL_CORE}) {
+-        chdir 't';
+-        @INC = '../lib';
+-    }
+-}
+-
+-print "1..2\n";
+-  print "# Running under Perl v $]\n";
+-if($] < 5.008) {
+-  print "ok 1 # Skip under Perl before 5.8 ($])\n";
+-} else {
+-  print "ok 1\n";
+-  print "# ^ not skipping\n";
+-}
+-
+-print "ok 2\n";
+-
+-- 
+2.27.0
+
diff --git a/perl-Pod-Simple.spec b/perl-Pod-Simple.spec
index 4935cd0..ab9d2e4 100644
--- a/perl-Pod-Simple.spec
+++ b/perl-Pod-Simple.spec
@@ -1,7 +1,7 @@
 Name:           perl-Pod-Simple
 Epoch:          1
 Version:        3.43
-Release:        1
+Release:        2
 Summary:        The framework for parsing Pod
 License:        GPL+ or Artistic
 URL:            https://metacpan.org/release/Pod-Simple
@@ -15,6 +15,8 @@ BuildRequires:  perl(Getopt::Long) perl(integer) perl(overload) perl(Pod::Escape
 BuildRequires:  perl(base) perl(Data::Dumper) perl(File::Find) perl(File::Path) perl(lib) perl(Test) perl(Test::More) 
 Requires:       perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
 
+Patch6000: backport-remove-useless-test.patch
+
 %description
 Pod::Simple is a Perl library for parsing text in the Pod ("plain old documentation") 
 markup language that is typically used for writing documentation for Perl and for Perl 
@@ -47,6 +49,9 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Thu Oct 20 2022 xujing <xujing125@huawei.com> - 1:3.43-2
+- remove useless test
+
 * Thu Nov 18 2021 liudabo <liudabo1@huawei.com> - 1:3.43-1
 - upgrade version to 3.43