| … | |
… | |
| 49 | } |
49 | } |
| 50 | } |
50 | } |
| 51 | |
51 | |
| 52 | if ($^O eq "MSWin32") { |
52 | if ($^O eq "MSWin32") { |
| 53 | # pango is relocatable on win32 |
53 | # pango is relocatable on win32 |
| 54 | } else { |
54 | } elsif (-e "$root/pangoversion") { |
| 55 | open my $fh, "<:perlio", "$root/pangoversion" |
55 | open my $fh, "<:perlio", "$root/pangoversion" |
| 56 | or die "pangoversion: $!"; |
56 | or die "pangoversion: $!"; |
| 57 | my $PANGO = <$fh>; |
57 | my $PANGO = <$fh>; |
| 58 | # unix, need to patch pango rc file |
58 | # unix, need to patch pango rc file |
| 59 | open my $fh, "<:perlio", "$root/usr/lib/pango/$PANGO/module-files.d/libpango1.0-0.modules" |
59 | open my $fh, "<:perlio", "$root/usr/lib/pango/$PANGO/module-files.d/libpango1.0-0.modules" |
| … | |
… | |
| 69 | |
69 | |
| 70 | $ENV{PANGO_RC_FILE} = "$root/pango.rc"; |
70 | $ENV{PANGO_RC_FILE} = "$root/pango.rc"; |
| 71 | open my $fh, ">:perlio", $ENV{PANGO_RC_FILE} |
71 | open my $fh, ">:perlio", $ENV{PANGO_RC_FILE} |
| 72 | or die "$ENV{PANGO_RC_FILE}: $!"; |
72 | or die "$ENV{PANGO_RC_FILE}: $!"; |
| 73 | print $fh "[Pango]\nModuleFiles = $root/pango-modules\n"; |
73 | print $fh "[Pango]\nModuleFiles = $root/pango-modules\n"; |
|
|
74 | } else { |
|
|
75 | # OS X |
|
|
76 | $ENV{FC_CONFIG_FILE} = "$root/fonts.conf"; # no effect??!?! |
|
|
77 | $ENV{FC_CONFIG_DIR} = $root; # no effect??!?! |
|
|
78 | $ENV{PANGO_RC_FILE} = "$root/pango.rc"; |
|
|
79 | $ENV{DYLD_LIBRARY_PATH} = $root; |
|
|
80 | chdir $root; # for pango modules, maybe other things |
| 74 | } |
81 | } |
| 75 | |
82 | |
| 76 | unshift @INC, $root; |
83 | unshift @INC, $root; |
| 77 | } |
84 | } |
| 78 | } |
85 | } |
