Revision: 147350 https://trac.macports.org/changeset/147350 Author: khindenburg@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 ...) + #