michael@372: Index: IPC-ShareLite-0.17/Makefile.PL
michael@372: --- IPC-ShareLite-0.17/Makefile.PL.orig	2011-06-19 23:39:44.000000000 +0200
michael@372: +++ IPC-ShareLite-0.17/Makefile.PL	2011-06-19 23:52:49.000000000 +0200
michael@372: @@ -55,11 +55,10 @@
michael@57:  
michael@372:    my @exclude = qw( Devel::CheckLib IO::CaptureOutput );
michael@372:    my $pad     = ' ' x 4;
michael@372: -  die "Can't parse Makefile fragment"
michael@372: -   unless $lines[-2] =~ /^([^"']*(["'])).*?(\2[^"']*)$/;
michael@372:    splice @lines, -1, 0, map { "$1$_$3" } (
michael@372:      'no_index:', "${pad}package:", map { "${pad}${pad}- $_" } @exclude
michael@372:    );
michael@57:  
michael@372:    return join "\n", @lines;
michael@372:  }
michael@372: +