| 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