[122729] trunk/dports/graphics/imageindex

[devans at macports.org]

Revision: 122729
          https://trac.macports.org/changeset/122729
Author:   devans at macports.org
Date:     2014-07-27 21:16:49 -0700 (Sun, 27 Jul 2014)
Log Message:
-----------
imageindex: replace p5.12 with p5.16 (#44405), patch to use IO::Handle instead of flush.pl which was dropped from core in perl5.16, increment revision.

Modified Paths:
--------------
    trunk/dports/graphics/imageindex/Portfile

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

Modified: trunk/dports/graphics/imageindex/Portfile
===================================================================
--- trunk/dports/graphics/imageindex/Portfile	2014-07-28 03:18:44 UTC (rev 122728)
+++ trunk/dports/graphics/imageindex/Portfile	2014-07-28 04:16:49 UTC (rev 122729)
@@ -5,7 +5,7 @@
 name              imageindex
 
 version           1.1
-revision          1
+revision          2
 platforms         darwin
 supported_archs   noarch
 categories        graphics
@@ -22,16 +22,18 @@
                   sha1    56ff666cb59258cc06052ccbe91ca06cb42f8cca \
                   rmd160  cffde483a8dddcef7f415c38b8ee3a9487444ecb
 
-depends_lib       port:p5.12-perlmagick
+depends_lib       port:p5.16-perlmagick
 
-depends_run       port:p5.12-image-info
+depends_run       port:p5.16-image-info
 
+patchfiles	  patch-imageindex.diff
+
 use_configure     no
 
-build.args        PREFIX=${prefix} PERLPATH=${prefix}/bin/perl5.12
+build.args        PREFIX=${prefix} PERLPATH=${prefix}/bin/perl5.16
 
 destroot.cmd      make install
-destroot.args     PREFIX=${destroot}${prefix} PERLPATH=${prefix}/bin/perl5.12
+destroot.args     PREFIX=${destroot}${prefix} PERLPATH=${prefix}/bin/perl5.16
 
 livecheck.type    regex
 livecheck.regex   ${name}-(\[0-9.\]+)\\.tar

Added: trunk/dports/graphics/imageindex/files/patch-imageindex.diff
===================================================================
--- trunk/dports/graphics/imageindex/files/patch-imageindex.diff	                        (rev 0)
+++ trunk/dports/graphics/imageindex/files/patch-imageindex.diff	2014-07-28 04:16:49 UTC (rev 122729)
@@ -0,0 +1,65 @@
+--- imageindex.orig	2014-07-27 21:07:46.000000000 -0700
++++ imageindex	2014-07-27 21:09:15.000000000 -0700
+@@ -325,7 +325,7 @@
+ use File::Copy;
+ use English;
+ use Carp;
+-require 'flush.pl';
++require IO::Handle;
+ 
+ # to shut up -w
+ use vars qw($opt_recurse);
+@@ -523,7 +523,7 @@
+ 
+ # Extract info
+ print "Extracting image info";
+-flush (STDOUT);
++STDOUT->flush();
+ 
+ foreach my $file (@files) {
+ 
+@@ -1708,7 +1708,7 @@
+ 	# at the user so that the video regexp might be adjusted
+ 	if ($retval == -1) {
+ 	    print "\nwarning: $pathname identified by extension as video file but mplayer doesn't recognize it\n";
+-	    flush (STDOUT);
++	    STDOUT->flush();
+ 	}
+     } else  {
+ 	&extract_image_info ($filename);
+@@ -1731,15 +1731,15 @@
+     my ($arate, $anch, $length, $is_video);
+ 
+     print ".";
+-    flush (STDOUT);
++    STDOUT->flush();
+ 
+     if ($mplayer_prog eq '' || ($do_video_files == 0)) {
+ 	if (($do_video_files != 0) && $mplayer_prog eq '') {
+ 	    print "\nwarning: Trying to process video files but cannot find mplayer in \$path!\n";
+-	    flush (STDOUT);
++	    STDOUT->flush();
+ 	}
+ 	print "\nSkipping $pathname";
+-	flush (STDOUT);
++	STDOUT->flush();
+ 	return 0;
+     } else {
+ 	$object_counter++;
+@@ -1893,14 +1893,14 @@
+     my $i;
+ 
+     print ".";
+-    flush (STDOUT);
++    STDOUT->flush();
+ 
+     $retval = $image->Read($pathname);
+ 
+ 
+     if ($retval ne "") {
+ 	print "\nSkipping $pathname";
+-	flush (STDOUT);
++	STDOUT->flush();
+ 	return;
+     } else {
+ 	$object_counter++;
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140727/3bd25bb4/attachment.html>