perl-sys/perl-sys.patch@f8813e60f168 (annotated)
perl-sys/perl-sys.patch
Fri, 03 Aug 2012 20:11:53 +0200
- author
- Michael Schloh von Bennewitz <michael@schloh.com>
- date
- Fri, 03 Aug 2012 20:11:53 +0200
- changeset 470
- f8813e60f168
- parent 57
- b2ef87c65d24
- permissions
- -rw-r--r--
Neutralize buggy code causing OpenPKG to have 'fatal problems' in
spite of correct installation, configuration, and operation. An
administrator suffering from this failure is even unable to
uninstall the flawed software.
| 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 | + |
