svn commit: r384368 - in head/textproc/latex2html: . files

[Mathieu Arnold]

Author: mat
Date: Mon Apr 20 16:56:50 2015
New Revision: 384368
URL: https://svnweb.freebsd.org/changeset/ports/384368

Log:
  Fix with Perl 5.21.1+
  
  "defined(@array)" and "defined(%hash)" are now fatal errors
      These have been deprecated since v5.6.1 and have raised deprecation
      warnings since v5.16.
  
  With hat:	perl@
  Sponsored by:	Absolight

Added:
  head/textproc/latex2html/files/patch-latex2html.pin   (contents, props changed)
Modified:
  head/textproc/latex2html/Makefile

Modified: head/textproc/latex2html/Makefile
==============================================================================
--- head/textproc/latex2html/Makefile	Mon Apr 20 16:43:18 2015	(r384367)
+++ head/textproc/latex2html/Makefile	Mon Apr 20 16:56:50 2015	(r384368)
@@ -3,7 +3,7 @@
 
 PORTNAME=	latex2html
 PORTVERSION=	2008
-PORTREVISION=	1
+PORTREVISION=	2
 CATEGORIES=	textproc
 MASTER_SITES=	${MASTER_SITE_TEX_CTAN}
 MASTER_SITE_SUBDIR=	support/${PORTNAME}

Added: head/textproc/latex2html/files/patch-latex2html.pin
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/textproc/latex2html/files/patch-latex2html.pin	Mon Apr 20 16:56:50 2015	(r384368)
@@ -0,0 +1,29 @@
+--- latex2html.pin.orig	2015-04-20 16:01:37 UTC
++++ latex2html.pin
+@@ -532,7 +532,7 @@ $CHARSET = $charset || 'iso-8859-1';
+ #
+ # If possible, use icons of the same type as generated images
+ #
+-if ($IMAGE_TYPE && defined %{"icons_$IMAGE_TYPE"}) {
++if ($IMAGE_TYPE && %{"icons_$IMAGE_TYPE"}) {
+     %icons = %{"icons_$IMAGE_TYPE"};
+ }
+ 
+@@ -2112,7 +2112,7 @@ sub convert_iso_latin_chars {
+ 		"\nCould not find translation function for $default_language.\n\n")
+ 	    }
+ 	);
+-	if ($USE_UTF ||(!$NO_UTF &&(defined %unicode_table)&&length(%unicode_table)>2)) {
++	if ($USE_UTF ||(!$NO_UTF &&(%unicode_table)&&length(%unicode_table)>2)) {
+ 	    &convert_to_unicode($_)};
+     }
+     $_ = join('', @case_processed, $_); undef(@case_processed);
+@@ -9117,7 +9117,7 @@ sub real_replace_strange_accents {
+     my ($charset) = "${CHARSET}_character_map_inv";
+     $charset =~ s/-/_/g;
+     # convert upper 8-bit characters
+-    if (defined %$charset &&($CHARSET =~ /8859[_\-]1$/)) {
++    if ((%$charset) &&($CHARSET =~ /8859[_\-]1$/)) {
+ 	s/([\200-\377])/
+ 	    $tmp = $$charset{'&#'.ord($1).';'};
+ 	    &mark_string($tmp) if ($tmp =~ m!\{!);