From d04678d0467c4397a8853af10f8f91384f5a35f9 Mon Sep 17 00:00:00 2001 From: dongyuzhen Date: Fri, 2 Aug 2024 10:17:12 +0800 Subject: [PATCH] backport patch from upstream --- backport-remove-incorrect-comment.patch | 22 ++++++++++++++++++++++ perl-File-Temp.spec | 8 +++++++- 2 files changed, 29 insertions(+), 1 deletion(-) create mode 100644 backport-remove-incorrect-comment.patch diff --git a/backport-remove-incorrect-comment.patch b/backport-remove-incorrect-comment.patch new file mode 100644 index 0000000..f481e53 --- /dev/null +++ b/backport-remove-incorrect-comment.patch @@ -0,0 +1,22 @@ +From 2be3a484db4a02c47c1ced7bc6a1820a1d8174e7 Mon Sep 17 00:00:00 2001 +From: mauke +Date: Sun, 9 Jul 2023 00:48:54 +0200 +Subject: [PATCH] remove incorrect comment + +_is_safe() has literally never returned undef on stat() failure. This comment has been incorrect since the initial release of this module in 2000. +--- + lib/File/Temp.pm | 1 - + 1 file changed, 1 deletion(-) + +diff --git a/lib/File/Temp.pm b/lib/File/Temp.pm +index 6593bb8..ef34f6c 100644 +--- a/lib/File/Temp.pm ++++ b/lib/File/Temp.pm +@@ -658,7 +658,6 @@ sub _force_writable { + #Args: directory path to check + # Optionally: reference to scalar to contain error message + # Returns true if the path is safe and false otherwise. +-# Returns undef if can not even run stat() on the path + + # This routine based on version written by Tom Christiansen + diff --git a/perl-File-Temp.spec b/perl-File-Temp.spec index eec815f..6ed0b39 100644 --- a/perl-File-Temp.spec +++ b/perl-File-Temp.spec @@ -3,11 +3,14 @@ Name: perl-File-Temp Epoch: 1 Version: 0.2311 -Release: 3 +Release: 4 Summary: Return name and handle of a temporary file safely License: GPL+ or Artistic URL: https://metacpan.org/release/File-Temp Source0: https://cpan.metacpan.org/authors/id/E/ET/ETHER/%{cpan_name}-%{cpan_version}.tar.gz + +Patch6000: backport-remove-incorrect-comment.patch + BuildArch: noarch BuildRequires: coreutils make perl(POSIX) perl(strict) perl(warnings) perl(Carp) perl(constant) BuildRequires: perl-generators perl-interpreter perl(Scalar::Util) perl(FileHandle) perl(Test::More) @@ -87,6 +90,9 @@ make test %{_mandir}/man3/* %changelog +* Fri Aug 2 2024 dongyuzhen - 1:0.2311-4 +- backport patch from upstream + * Tue Oct 25 2022 dongyuzhen - 1:0.2311-3 - delete macros in changelog -- Gitee