gentoo resync : 14.07.2018

1 files changed, 40 insertions, 0 deletions

diff --git a/dev-perl/GD/files/GD-2.560.0-rt106594.patch b/dev-perl/GD/files/GD-2.560.0-rt106594.patch
new file mode 100644
index 000000000000..dc8007d5d493
--- /dev/null
+++ b/dev-perl/GD/files/GD-2.560.0-rt106594.patch
@@ -0,0 +1,40 @@
+diff -Naur GD-2.56/t/GD.t GD-2.56b/t/GD.t
+--- GD-2.56/t/GD.t	2014-10-28 01:34:54.000000000 +0000
++++ GD-2.56b/t/GD.t	2016-05-10 10:05:05.838356122 +0000
+@@ -7,8 +7,8 @@
+ use FindBin qw($Bin);
+ use lib "$Bin/../blib/lib","$Bin/../blib/arch","$Bin/../lib";
+ use constant FONT=>"$Bin/test_data/Generic.ttf";
+-use constant IMAGE_TESTS => 7;
+-use Test::More tests => 11;
++use constant IMAGE_TESTS => 6;
++use Test::More tests => 10;
+ use IO::Dir;
+ 
+ use_ok('GD',':DEFAULT',':cmp');
+@@ -219,25 +219,6 @@
+     return $im;
+ }
+ 
+-sub test7 {
+-  my $im = GD::Image->new(400,250);
+-  if (!$im) { printf("Test7: no image");};
+-  my($white,$black,$red,$blue,$yellow) = 
+-    (
+-     $im->colorAllocate(255, 255, 255),
+-     $im->colorAllocate(0, 0, 0),
+-     $im->colorAllocate(255, 0, 0),
+-     $im->colorAllocate(0,0,255),
+-     $im->colorAllocate(255,250,205)
+-    );
+-
+-  # Some TTFs
+-  $im->stringFT($black,FONT,12.0,0.0,20,20,"Hello world!") || warn $@;
+-  $im->stringFT($red,FONT,14.0,0.0,20,80,"Hello world!") || warn $@;
+-  $im->stringFT($blue,FONT,30.0,-0.5,60,100,"Goodbye cruel world!") || warn $@;
+-  return $im;
+-}
+-
+ sub run_image_regression_tests {
+     my $suffix = $ENV{GDIMAGETYPE} || 'gd2';
+     print STDERR "# Testing using $suffix support.\n";