From 68d3ba501ed4219f9b173a4c9e373c024180d087 Mon Sep 17 00:00:00 2001 From: Vadim Konovalov Date: Thu, 2 Nov 2006 13:36:49 +0100 Subject: [PATCH] [patch at 21983] factor out $^O eq 'darwin' from XSLoader.pm From: "Konovalov, Vadim Vladimirovich (Vadim)** CTR **" Message-ID: p4raw-id: //depot/perl@29188 --- ext/DynaLoader/XSLoader_pm.PL | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/ext/DynaLoader/XSLoader_pm.PL b/ext/DynaLoader/XSLoader_pm.PL index d95cdb05cd2..2f8b3e893e1 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