[147350] trunk/dports/graphics/imageindex

[khindenburg at macports.org]

Revision: 147350
          https://trac.macports.org/changeset/147350
Author:   khindenburg at macports.org
Date:     2016-04-01 20:03:33 -0700 (Fri, 01 Apr 2016)
Log Message:
-----------
imageindex: fix for perl5.22 - defined(@) is invalid

Modified Paths:
--------------
    trunk/dports/graphics/imageindex/Portfile
    trunk/dports/graphics/imageindex/files/patch-imageindex.diff

Modified: trunk/dports/graphics/imageindex/Portfile
===================================================================
--- trunk/dports/graphics/imageindex/Portfile	2016-04-02 01:56:56 UTC (rev 147349)
+++ trunk/dports/graphics/imageindex/Portfile	2016-04-02 03:03:33 UTC (rev 147350)
@@ -7,7 +7,7 @@
 name                imageindex
 
 version             1.1
-revision            3
+revision            4
 platforms           darwin
 supported_archs     noarch
 categories          graphics

Modified: trunk/dports/graphics/imageindex/files/patch-imageindex.diff
===================================================================
--- trunk/dports/graphics/imageindex/files/patch-imageindex.diff	2016-04-02 01:56:56 UTC (rev 147349)
+++ trunk/dports/graphics/imageindex/files/patch-imageindex.diff	2016-04-02 03:03:33 UTC (rev 147350)
@@ -1,5 +1,5 @@
---- imageindex.orig	2014-07-27 21:07:46.000000000 -0700
-+++ imageindex	2014-07-27 21:09:15.000000000 -0700
+--- imageindex	2007-04-04 15:55:51.000000000 -0400
++++ imageindex	2016-04-01 22:10:01.000000000 -0400
 @@ -325,7 +325,7 @@
  use File::Copy;
  use English;
@@ -63,3 +63,39 @@
  	return;
      } else {
  	$object_counter++;
+@@ -2298,7 +2298,7 @@
+     if (defined($lastdate)) {
+ 	print "<META NAME=\"$enddatemetatag\" CONTENT=\"$lastdate\">\n";
+     }
+-    if (!defined ($opt_includeall) && defined (@opt_exclude) && scalar (@opt_exclude)) {
++    if (!defined ($opt_includeall) && (@opt_exclude) && scalar (@opt_exclude)) {
+ 	my $tmp = join (',', @opt_exclude);
+ 	my $etmp;
+ 
+@@ -2311,7 +2311,7 @@
+     }
+     printf ("<META NAME=\"$numimagesmetatag\" CONTENT=\"%d\">\n", $image_counter);
+ 
+-    if (defined (@opt_skipmont) && scalar (@opt_skipmont)) {
++    if ((@opt_skipmont) && scalar (@opt_skipmont)) {
+ 	my $tmp = join (',', @opt_skipmont);
+ 	printf ("<META NAME=\"$skipmetatag\" CONTENT=\"%s\">\n", $tmp);
+     }
+@@ -2475,7 +2475,7 @@
+     # then process. Check to see if any of the -skipmont options were given as
+     # strings of filenames concatenated with ',' characters. If so, support it.
+     #
+-    if (defined (@opt_skipmont)) {
++    if ((@opt_skipmont)) {
+ 	foreach (@opt_skipmont) {
+ 	    (@tokens) = split (/,/, $_);
+ 	    foreach $token (@tokens) {
+@@ -2499,7 +2499,7 @@
+     # then process. Check to see if any of the -exclude options were given as
+     # strings of filenames concatenated with ',' characters. If so, support it.
+     #
+-    if (defined (@opt_exclude)) {
++    if ((@opt_exclude)) {
+ 	# -includeall takes priority over -exclude on the commandline if they are
+ 	# used together (wierd, but ...)
+ 	#
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20160401/c8ff622c/attachment.html>