| … | |
… | |
| 160 | if (-d $_) { |
160 | if (-d $_) { |
| 161 | system "rsync", "-aR", $_, "$ENV{DIST}/pm/."; |
161 | system "rsync", "-aR", $_, "$ENV{DIST}/pm/."; |
| 162 | } else { |
162 | } else { |
| 163 | File::Path::mkpath "$ENV{OSDIST}/pm/" . dirname $_; |
163 | File::Path::mkpath "$ENV{OSDIST}/pm/" . dirname $_; |
| 164 | File::Copy::syscopy "$_", "$ENV{OSDIST}/pm/$_" |
164 | File::Copy::syscopy "$_", "$ENV{OSDIST}/pm/$_" |
| 165 | or die "$ENV{OSDIST}/pm/$_: $!"; |
165 | or die "$lib/$_ => $ENV{OSDIST}/pm/$_: $!"; |
| 166 | |
166 | |
| 167 | if (s/\.pm$//) { |
167 | if (s/\.pm$//) { |
| 168 | $auto = "auto/$_"; |
168 | $auto = "auto/$_"; |
| 169 | |
169 | |
| 170 | for my $glob ("*.'$SO'", "autosplit.ix", "*.al") { |
170 | for my $glob ("*.'$SO'", "autosplit.ix", "*.al") { |
| … | |
… | |
| 259 | done |
259 | done |
| 260 | |
260 | |
| 261 | if [ "$OS" != windows ]; then |
261 | if [ "$OS" != windows ]; then |
| 262 | # patch braindamaged pango |
262 | # patch braindamaged pango |
| 263 | |
263 | |
| 264 | if [ "$OS" = darwin ]; then |
264 | if [ "$OS" != darwin ]; then |
| 265 | set libdeliantra-pango-1.0.0.dylib |
265 | set libpango-1.0.$LIB0 |
| 266 | perl -pe 's{/o(?opt/local/.../pango)}{.\x00}g; s{\Q'$PANGO'\E\x00}{y.t.u\x00}g' <"$1" >"$1~" && mv "$1~" "$1" |
266 | perl -pe 's{/u(?=sr/lib(32)?/pango)}{.\x00}g;' <"$1" >"$1~" && mv "$1~" "$1" |
| 267 | else |
267 | else |
| 268 | set libpango-1.0.$LIB0 |
268 | set lib*pango-1.0.0.dylib |
| 269 | perl -pe 's{/u(?=sr/lib(32)?/pango)}{.\x00}g; s{\Q'$PANGO'\E\x00}{y.t.u\x00}g' <"$1" >"$1~" && mv "$1~" "$1" |
269 | perl -pe 's{/o(?=pt/local/.../pango)}{.\x00}g;' <"$1" >"$1~" && mv "$1~" "$1" |
| 270 | fi |
270 | fi |
| 271 | chmod 755 "$1" |
271 | chmod 755 "$1" |
| 272 | fi |
272 | fi |
| 273 | |
273 | |
| 274 | if [ "$OS" = darwin ]; then |
274 | if [ "$OS" = darwin ]; then |
