4b97cd2fb4
```sh
git grep -l '^patch_args=-Np0' "srcpkgs/$1*/template" |
while read template; do
for p in ${template%/template}/patches/*; do
sed -i '
\,^[+-][+-][+-] /dev/null,b
/^[*-]\+ [0-9]\+\(,[0-9]\+\)\? [*-]\+$/b
s,^[*][*][*] ,&a/,
/^--- /{
s,\(^--- \)\(./\)*,\1a/,
s,[.-][Oo][Rr][Ii][Gg]\([ /]\),\1,
s/[.-][Oo][Rr][Ii][Gg]$//
s/[.]patched[.]\([^.]\)/.\1/
h
}
/^+++ -/{
g
s/^--- a/+++ b/
b
}
s,\(^+++ \)\(./\)*,\1b/,
' "$p"
done
sed -i '/^patch_args=/d' $template
done
```
16 lines
517 B
Diff
16 lines
517 B
Diff
--- a/Makefile.PL
|
|
+++ b/Makefile.PL
|
|
@@ -6,9 +6,10 @@
|
|
# so don't depend on any public Perl API
|
|
use strict;
|
|
use ExtUtils::MakeMaker;
|
|
-my @EXE_FILES = split("\n", `git ls-files 'script/' 2>/dev/null`);
|
|
-my $PM_FILES = `git ls-files lib '*.pm' 2>/dev/null`;
|
|
-$PM_FILES =~ tr/\n/ /;
|
|
+open my $m, '<', 'MANIFEST' or die "open(MANIFEST): $!\n";
|
|
+chomp(my @manifest = (<$m>));
|
|
+my @EXE_FILES = grep(m!^script/!, @manifest);
|
|
+my $PM_FILES = join(' ', grep(m!^lib/.*\.pm$!, @manifest));
|
|
|
|
WriteMakefile(
|
|
NAME => 'ssoma',
|