perl-sys/perl-sys.patch@680c3f7768b0 (annotated)
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.
| michael@372 | 1 | Index: IPC-ShareLite-0.17/Makefile.PL |
| michael@372 | 2 | --- IPC-ShareLite-0.17/Makefile.PL.orig 2011-06-19 23:39:44.000000000 +0200 |
| michael@372 | 3 | +++ IPC-ShareLite-0.17/Makefile.PL 2011-06-19 23:52:49.000000000 +0200 |
| michael@372 | 4 | @@ -55,11 +55,10 @@ |
| michael@57 | 5 | |
| michael@372 | 6 | my @exclude = qw( Devel::CheckLib IO::CaptureOutput ); |
| michael@372 | 7 | my $pad = ' ' x 4; |
| michael@372 | 8 | - die "Can't parse Makefile fragment" |
| michael@372 | 9 | - unless $lines[-2] =~ /^([^"']*(["'])).*?(\2[^"']*)$/; |
| michael@372 | 10 | splice @lines, -1, 0, map { "$1$_$3" } ( |
| michael@372 | 11 | 'no_index:', "${pad}package:", map { "${pad}${pad}- $_" } @exclude |
| michael@372 | 12 | ); |
| michael@57 | 13 | |
| michael@372 | 14 | return join "\n", @lines; |
| michael@372 | 15 | } |
| michael@372 | 16 | + |
