Update of /cvsroot/fink/dists/10.7/stable/main/finkinfo/libs/perlmods
In directory
sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv9714/10.7/main/finkinfo/libs/perlmods
Modified Files:
io-pager-pm.info
Added Files:
io-pager-pm.patch
Log Message:
new version
Index: io-pager-pm.info
===================================================================
RCS file:
/cvsroot/fink/dists/10.7/stable/main/finkinfo/libs/perlmods/io-pager-pm.info,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- io-pager-pm.info 16 Jul 2012 15:11:34 -0000 1.2
+++ io-pager-pm.info 21 May 2013 17:42:21 -0000 1.3
@@ -1,6 +1,6 @@
Info2: <<
Package: io-pager-pm%type_pkg[perl]
-Version: 0.24
+Version: 0.31
Revision: 1
Description: Perl module to select a pager
Type: perl (5.12.3 5.12.4)
@@ -13,8 +13,12 @@
# Unpack Phase:
Source: mirror:cpan:authors/id/J/JP/JPIERCE/IO-Pager-%v.tgz
-Source-MD5: c3bfc43fc20050e6648644b1fbb09bf4
+Source-MD5: 727579dccdda96cfcadbba9def8af59f
+PatchFile: %{ni}.patch
+PatchFile-MD5: 5d3b30d658eab3cb1df4b9c30d890f55
PatchScript: <<
+ %{default_script}
+
# several parts of this test involve assuming perl interp is single word
rm t/02-which.t
<<
--- NEW FILE: io-pager-pm.patch ---
diff -Nurd -x'*~' IO-Pager-0.31.orig/t/08-redirect.t
IO-Pager-0.31/t/08-redirect.t
--- IO-Pager-0.31.orig/t/08-redirect.t 2012-09-04 19:13:02.000000000 -0400
+++ IO-Pager-0.31/t/08-redirect.t 2013-05-21 13:39:31.000000000 -0400
@@ -3,6 +3,7 @@
use File::Temp;
use Test::More;
use t::TestUtils;
+use Config;
#Disable warnings for awkard test file mechanism required by Windows
my(undef, $tempname) = do{ $^W=0; File::Temp::tempfile(OPEN=>0)};
@@ -11,7 +12,21 @@
#Print the heredoc in 08-redirect.pl to temp file via redirection
my $q = q['];
$q = q["] if $^O =~ /MSWin32/;
-system qq($^X -Mblib -MIO::Pager::Page -e $q require q[t/08-redirect.pl];
print \$txt $q >$tempname);
+my @command;
+if ($] >= 5.010 && $Config{"byteorder"} =~ /^1/) {
+ # little-endian means intel (not powerpc), for which fink has
+ # multiple single-arch distros that are seen by a single (fat)
+ # perl interp from apple for a perl version supported by fink
+ # (i.e., starting with 5.10.0). This is the logic taken from
+ # Fink::PkgVersion as of fink-0.29.13.
+ push @command, '/usr/bin/arch';
+ if ( $Config{"longsize"} == 4 ) {
+ push @command, '-i386'; # 32-bit
+ } else {
+ push @command, '-x86_64'; # 64-bit
+ }
+}
+system qq(@command $^X -Mblib -MIO::Pager::Page -e $q require
q[t/08-redirect.pl]; print \$txt $q >$tempname);
open(TMP, $tempname) or die "Could not open tmpfile: $!\n";
my $slurp = do{ undef $/; <TMP> };
------------------------------------------------------------------------------
Try New Relic Now & We'll Send You this Cool Shirt
New Relic is the only SaaS-based application performance monitoring service
that delivers powerful full stack analytics. Optimize and monitor your
browser, app, & servers with just a few lines of code. Try New Relic
and get this awesome Nerd Life shirt! http://p.sf.net/sfu/newrelic_d2d_may
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
http://news.gmane.org/gmane.os.apple.fink.cvs
