Skip Menu |

This queue is for tickets about the PDL-Graphics-PLplot CPAN distribution.

Report information
The Basics
Id: 121886
Status: new
Priority: 0/
Queue: PDL-Graphics-PLplot

People
Owner: Nobody in particular
Requestors: ppisar [...] redhat.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 0.71
Fixed in: (no value)



Subject: t/x01.pl fails on Perl 5.26.0
Perl 5.26.0 does not have POSIX::isprint() and t/x01.pl fails on "use POSIX qw [isprint];". A fix is attached.
Subject: PDL-Graphics-PLplot-0.71-Do-not-use-POSIX-isprint.patch
From fec162d3c5888c19d4d9100d393db74de7ecf1b4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com> Date: Thu, 25 May 2017 14:09:33 +0200 Subject: [PATCH] Do not use POSIX::isprint() MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit POSIX::isprint() was removed in Perl 5.26.0 and it caused a test failure. Signed-off-by: Petr Písař <ppisar@redhat.com> --- t/x01.pl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/t/x01.pl b/t/x01.pl index 94f83b4..ad6d22a 100755 --- a/t/x01.pl +++ b/t/x01.pl @@ -28,7 +28,6 @@ use PDL; use PDL::Graphics::PLplot; use Math::Trig qw [pi]; use Time::HiRes qw [usleep]; -use POSIX qw [isprint]; use Getopt::Long qw [:config pass_through]; use Text::Wrap; @@ -166,7 +165,7 @@ EOT printf ("subwin = $gin{subwindow}, wx = %f, wy = %f, dx = %f, " . "dy = %f, c = " - . ($k < 0xFF and isprint (chr $k) ? "'%c'" : "0x%02x") + . ($k < 0xFF and chr($k) =~ /^[[:print:]]+$/ ? "'%c'" : "0x%02x") . "\n", $gin{wX}, $gin{wY}, $gin{dX}, $gin{dY}, $k); plgra (); -- 2.9.4