Skip to content

Instantly share code, notes, and snippets.

@amontalban
Created November 23, 2016 18:25
Show Gist options
  • Save amontalban/4e8da53b445fd53237b498558c8615da to your computer and use it in GitHub Desktop.
Save amontalban/4e8da53b445fd53237b498558c8615da to your computer and use it in GitHub Desktop.
GD patch to allow copyRotated()
--- Build.PL.orig 2016-11-23 15:18:04.000000000 -0300
+++ Build.PL 2016-11-23 15:18:41.000000000 -0300
@@ -28,40 +28,6 @@
@LIBPATH = (@LIBPATH,@libs64);
}
-#############################################################################################
-# Build options passed in to script to support reproducible builds via Makefiles
-#############################################################################################
-my $result = GetOptions("options=s" => \$options,
- "lib_gd_path=s" => \$lib_gd_path,
- "lib_ft_path=s" => \$lib_ft_path,
- "lib_png_path=s" => \$lib_png_path,
- "lib_jpeg_path=s" => \$lib_jpeg_path,
- "lib_xpm_path=s" => \$lib_xpm_path,
- "lib_zlib_path=s" => \$lib_zlib_path,
- );
-unless ($result) {
- die <<END;
-Usage: perl Build.PL [options]
-
-Configure GD module.
-
- Options:
- -options "JPEG,FT,PNG,GIF,XPM,ANIMGIF" feature options, separated by commas
- -lib_gd_path path path to libgd
- -lib_ft_path path path to Freetype library
- -lib_png_path path path to libpng
- -lib_jpeg_path path path to libjpeg
- -lib_xpm_path path path to libxpm
- -lib_zlib_path path path to libpng
- -ignore_missing_gd Ignore missing or old libgd installations and try to compile anyway
-
-If no options are passed on the command line. The program will
-attempt to autoconfigure itself with the gdlib-config program (present
-in GD versions 2.0.27 or later). Otherwise it will prompt for these
-values interactively.
-END
-}
-
if( defined($options) )
{
print "Included Features: $options\n";
@@ -280,8 +246,10 @@
($$lib_gd_path = $libdir) =~ s!/[^/]+$!!;
$$options = $features;
- my ($minor) = $version =~ /^2\.\d+\.(\d+)$/;
- $$options .= " GD_UNCLOSEDPOLY GD_ANIMGIF GD_FTCIRCLE VERSION_33" if defined($minor) && $minor >= 33;
+ my ($minor, $patch) = $version =~ /^2\.(\d+)\.(\d+)$/;
+ if (defined($minor) && $minor or defined($patch) && $patch >= 33) {
+ $$options .= " GD_UNCLOSEDPOLY GD_ANIMGIF GD_FTCIRCLE VERSION_33";
+ }
my @correct_inc = map {s/^-I// && $_} split /\s+/,$cflags;
check_for_stray_headers($includedir,@correct_inc);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment