perl-sys/perl-sys.patch@680c3f7768b0
perl-sys/perl-sys.patch
Fri, 13 Apr 2012 18:48:23 +0200
- author
- Michael Schloh von Bennewitz <michael@schloh.com>
- date
- Fri, 13 Apr 2012 18:48:23 +0200
- changeset 418
- 680c3f7768b0
- parent 57
- b2ef87c65d24
- permissions
- -rw-r--r--
Correct various structure and architecture problems in code including:
use functions from ISO C stdio requires cstdio header,
include sockio header only in platforms where it's present,
touch random number seeder logic on X86-64 platforms as well as IA-32,
and hopefully use all 64 bits of register as it would seem that more
like 'asm("rdtsc" : "=a" (lowtick), "=d" (hitick));' is needed instead.
1 Index: IPC-ShareLite-0.17/Makefile.PL
2 --- IPC-ShareLite-0.17/Makefile.PL.orig 2011-06-19 23:39:44.000000000 +0200
3 +++ IPC-ShareLite-0.17/Makefile.PL 2011-06-19 23:52:49.000000000 +0200
4 @@ -55,11 +55,10 @@
6 my @exclude = qw( Devel::CheckLib IO::CaptureOutput );
7 my $pad = ' ' x 4;
8 - die "Can't parse Makefile fragment"
9 - unless $lines[-2] =~ /^([^"']*(["'])).*?(\2[^"']*)$/;
10 splice @lines, -1, 0, map { "$1$_$3" } (
11 'no_index:', "${pad}package:", map { "${pad}${pad}- $_" } @exclude
12 );
14 return join "\n", @lines;
15 }
16 +
