Rev 33 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 33 | Rev 36 | ||
|---|---|---|---|
| Line 5... | Line 5... | ||
| 5 | ## DP: Credit to Niko Tyni <ntyni@debian.org>. |
5 | ## DP: Credit to Niko Tyni <ntyni@debian.org>. |
| 6 | 6 | ||
| 7 | FILE=src/modules/Perl/configure |
7 | FILE=src/modules/Perl/configure |
| 8 | 8 | ||
| 9 | dpatch_patch() {
|
9 | dpatch_patch() {
|
| 10 | [ ! -e ${FILE}.bak ] || return 1
|
10 | [ ! -e ${FILE}.dp-orig ] || return 1
|
| 11 | 11 | ||
| 12 | sed -i.bak -f - ${FILE} <<'END_SED'
|
12 | sed -i.dp-orig -f - ${FILE} <<'END_SED'
|
| 13 | /my_perl = perl_alloc();/i\ |
13 | /my_perl = perl_alloc();/i\ |
| 14 | PERL_SYS_INIT3(&argc,&argv,&env); |
14 | PERL_SYS_INIT3(&argc,&argv,&env); |
| 15 | /perl_free(my_perl);/a\ |
15 | /perl_free(my_perl);/a\ |
| 16 | PERL_SYS_TERM(); |
16 | PERL_SYS_TERM(); |
| 17 | END_SED |
17 | END_SED |
| Line 19... | Line 19... | ||
| 19 | patch -p1 $* |
19 | patch -p1 $* |
| 20 | 20 | ||
| 21 | } |
21 | } |
| 22 | 22 | ||
| 23 | dpatch_unpatch() {
|
23 | dpatch_unpatch() {
|
| 24 | patch -p1 -R $* && [ -e ${FILE}.bak ] && mv -f ${FILE}.bak ${FILE}
|
24 | patch -p1 -R $* && [ -e ${FILE}.dp-orig ] && mv -f ${FILE}.dp-orig ${FILE}
|
| 25 | 25 | ||
| 26 | } |
26 | } |
| 27 | 27 | ||
| 28 | 28 | ||
| 29 | DPATCH_LIB_NO_DEFAULT=1 |
29 | DPATCH_LIB_NO_DEFAULT=1 |