diff --git a/backport-output-shoud-be-empty.patch b/backport-output-shoud-be-empty.patch
new file mode 100644
index 0000000..f469d22
--- /dev/null
+++ b/backport-output-shoud-be-empty.patch
@@ -0,0 +1,29 @@
+From 46785bfe6b4a12be606344819e785ec173bffa2b Mon Sep 17 00:00:00 2001
+From: Nicolas R <nicolas@atoomic.org>
+Date: Mon, 19 Oct 2020 10:29:57 -0600
+Subject: [PATCH] Output should be empty
+
+diff -rNu Pod-Usage-2.01/t/pod/pod2usage2.t Pod-Usage-2.01_new/t/pod/pod2usage2.t
+--- Pod-Usage-2.01/t/pod/pod2usage2.t	2020-10-14 07:14:10.000000000 +0800
++++ Pod-Usage-2.01_new/t/pod/pod2usage2.t	2021-07-28 16:03:42.000000000 +0800
+@@ -361,6 +361,7 @@
+   *Pod::Usage::initialize = sub { 1; };
+ }
+ 
++our $TODO;
+ SKIP: {
+     my $perldoc = $^X . 'doc';
+     skip "Missing perldoc binary", 2 unless -x $perldoc;
+@@ -378,8 +379,11 @@
+       } );
+     is ($exit, 0,                 "Exit status pod2usage with special perldoc case");
+     # output went to devnull
+-    like ($text, qr/^\s*$/s, "Output test pod2usage with special perldoc case") or diag "Got:\n$text\n";
+ 
++    TODO: {
++        local $TODO = q[Can get output from stty view #14];
++        is( length($text), 0, "Output test pod2usage with special perldoc case") or diag "Got:\n$text\n";
++    }
+ }
+ 
+ # bad regexp syntax
diff --git a/perl-Pod-Usage.spec b/perl-Pod-Usage.spec
index 7ae126b..e83b749 100644
--- a/perl-Pod-Usage.spec
+++ b/perl-Pod-Usage.spec
@@ -1,12 +1,14 @@
 Name:                perl-Pod-Usage
 Epoch:               4
 Version:             2.01
-Release:             1
+Release:             2
 Summary:             Print a usage message from embedded pod documentation
 License:             GPL+ or Artistic-1.0
 URL:                 https://metacpan.org/release/Pod-Usage
 Source0:             https://cpan.metacpan.org/authors/id/A/AT/ATOOMIC/Pod-Usage-%{version}.tar.gz
 
+Patch0: backport-output-shoud-be-empty.patch
+
 BuildArch:           noarch
 BuildRequires:       perl make sed coreutils perl-generators perl-interpreter  perl(Config) perl(warnings)
 BuildRequires:       perl(Cwd) perl(ExtUtils::MakeMaker) perl(File::Basename) perl(File::Spec) perl(strict)
@@ -51,6 +53,9 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Wed Jul 28 2021 tianwei <tianwei12@huawei.com> - 4:2.01-2
+- output should be empty for issue #I42T4q
+
 * Tue Jan 26 2021 liudabo <liudabo1@huawei.com> - 4:2.01-1
 - upgrade version to 2.01