perl-sys/perl-sys.patch@51de80f77aa2 (annotated)
perl-sys/perl-sys.patch
Thu, 22 Dec 2011 18:08:26 +0100
- author
- Michael Schloh von Bennewitz <michael@schloh.com>
- date
- Thu, 22 Dec 2011 18:08:26 +0100
- changeset 403
- 51de80f77aa2
- parent 57
- b2ef87c65d24
- permissions
- -rw-r--r--
Generally avoid expensive core operations by only reloading logs.
| 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 | + |
