[liblog-tracemessages-perl] 01/02: apply patch from Petr Písař <ppisar at redhat.com> replacing usage of POSIX::tmpnam with File::Temp::tempfile
Damyan Ivanov
dmn at moszumanska.debian.org
Thu Jun 22 13:02:47 UTC 2017
This is an automated email from the git hooks/post-receive script.
dmn pushed a commit to annotated tag debian/1.4-4
in repository liblog-tracemessages-perl.
commit 013e1e00b43b56724a7c6741bbb9a9100e4abb31
Author: Damyan Ivanov <dmn at debian.org>
Date: Thu Jun 22 13:00:13 2017 +0000
apply patch from Petr Písař <ppisar at redhat.com> replacing usage of POSIX::tmpnam with File::Temp::tempfile
Closes: #826436 -- Calling POSIX::tmpnam() is deprecated (fatal with 5.26)
---
...ile-Temp-tempfile-instead-of-POSIX-tmpnam.patch | 77 ++++++++++++++++++++++
debian/patches/series | 1 +
2 files changed, 78 insertions(+)
diff --git a/debian/patches/Use-File-Temp-tempfile-instead-of-POSIX-tmpnam.patch b/debian/patches/Use-File-Temp-tempfile-instead-of-POSIX-tmpnam.patch
new file mode 100644
index 0000000..161b7b5
--- /dev/null
+++ b/debian/patches/Use-File-Temp-tempfile-instead-of-POSIX-tmpnam.patch
@@ -0,0 +1,77 @@
+From 2dee259f876678100006d7c430a5580a77ff2c24 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar at redhat.com>
+Date: Mon, 22 May 2017 15:18:01 +0200
+Subject: [PATCH] Use File::Temp::tempfile instead of POSIX::tmpnam
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Perl 5.26.0 removed POSIX::tmpnam().
+
+CPAN RT#115089
+
+Signed-off-by: Petr Písař <ppisar at redhat.com>
+---
+ Makefile.PL | 5 ++++-
+ test.pl | 10 +++++-----
+ 2 files changed, 9 insertions(+), 6 deletions(-)
+
+diff --git a/Makefile.PL b/Makefile.PL
+index 9ff3e55..01f41a9 100644
+--- a/Makefile.PL
++++ b/Makefile.PL
+@@ -4,5 +4,8 @@ use ExtUtils::MakeMaker;
+ WriteMakefile(
+ 'NAME' => 'Log::TraceMessages',
+ 'VERSION_FROM' => 'TraceMessages.pm', # finds $VERSION
+- 'PREREQ_PM' => { 'HTML::FromText' => '1.004' },
++ 'PREREQ_PM' => {
++ 'File::Temp' => '0',
++ 'HTML::FromText' => '1.004',
++ },
+ );
+diff --git a/test.pl b/test.pl
+index d1afa67..c8635a7 100644
+--- a/test.pl
++++ b/test.pl
+@@ -21,7 +21,7 @@ print "ok 1\n";
+ ######################### End of black magic.
+
+ use strict;
+-use POSIX qw(tmpnam);
++use File::Temp qw(tempfile);
+ my $test_str = 'test < > &';
+ my $debug = 0;
+ my $out;
+@@ -50,7 +50,7 @@ print "ok 4\n";
+ # Test 5 - t() with $CGI == 0 after setting a logfile
+ ${Log::TraceMessages::On} = 1;
+ ${Log::TraceMessages::CGI} = 0;
+-my $tmp = tmpnam();
++my ($fd, $tmp) = tempfile();
+ ${Log::TraceMessages::Logfile} = $tmp;
+ $out = grab_output("t('$test_str')");
+ ${Log::TraceMessages::Logfile} = undef;
+@@ -68,7 +68,7 @@ unlink $tmp or die "cannot unlink $tmp: $!";
+ # Test 6 - t() with $CGI == 1 after setting a different logfile
+ ${Log::TraceMessages::On} = 1;
+ ${Log::TraceMessages::CGI} = 1;
+-my $tmp = tmpnam();
++my ($fd, $tmp) = tempfile();
+ ${Log::TraceMessages::Logfile} = $tmp;
+ $out = grab_output("t('$test_str')");
+ ${Log::TraceMessages::Logfile} = undef;
+@@ -124,8 +124,8 @@ print "ok 11\n";
+ sub grab_output($) {
+ die 'usage: grab_stderr(string to eval)' if @_ != 1;
+ my $code = shift;
+- require POSIX;
+- my $tmp_o = POSIX::tmpnam(); my $tmp_e = POSIX::tmpnam();
++ my ($fd_o, $tmp_o) = File::Temp::tempfile();
++ my ($fd_e, $tmp_e) = File::Temp::tempfile();
+ local *OLDOUT, *OLDERR;
+
+ print "running code: $code\n" if $debug;
+--
+2.9.4
+
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..c77a014
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+Use-File-Temp-tempfile-instead-of-POSIX-tmpnam.patch
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/liblog-tracemessages-perl.git
More information about the Pkg-perl-cvs-commits
mailing list