diff options
| author | Vadim Konovalov <vkonovalov@lucent.com> | 2006-11-02 13:36:49 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-02 11:59:23 +0000 |
| commit | 68d3ba501ed4219f9b173a4c9e373c024180d087 (patch) | |
| tree | 5bfa046620c2b654c747f7c3cf26bd439a6be08e | |
| parent | cfc4a7da389202132834a0ef4ed2d46dd167c176 (diff) | |
| download | perl-68d3ba501ed4219f9b173a4c9e373c024180d087.tar.gz | |
[patch at 21983] factor out $^O eq 'darwin' from XSLoader.pm
From: "Konovalov, Vadim Vladimirovich (Vadim)** CTR **" <vkonovalov@Lucent.com>
Message-ID: <E3FB32585BF1D411B9E900805FF51A080204E833@ru0022exch001u.ru.lucent.com>
p4raw-id: //depot/perl@29188
| -rw-r--r-- | ext/DynaLoader/XSLoader_pm.PL | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/ext/DynaLoader/XSLoader_pm.PL b/ext/DynaLoader/XSLoader_pm.PL index d95cdb05cd..2f8b3e893e 100644 --- a/ext/DynaLoader/XSLoader_pm.PL +++ b/ext/DynaLoader/XSLoader_pm.PL @@ -82,12 +82,17 @@ print OUT <<'EOT'; my $boot_symbol_ref; +EOT + if ($^O eq 'darwin') { +print OUT <<'EOT'; if ($boot_symbol_ref = dl_find_symbol(0, $bootname)) { goto boot; #extension library has already been loaded, e.g. darwin } +EOT } +print OUT <<'EOT'; # Many dynamic extension loading problems will appear to come from # this section of code: XYZ failed at line 123 of DynaLoader.pm. # Often these errors are actually occurring in the initialisation |