From: Vadim Konovalov <vkonovalov@lucent.com>
Date: Thu, 2 Nov 2006 12:36:49 +0000 (+0100)
Subject: [patch at 21983] factor out $^O eq 'darwin' from XSLoader.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=68d3ba501ed4219f9b173a4c9e373c024180d087;p=p5sagit%2Fp5-mst-13.2.git

[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
---

diff --git a/ext/DynaLoader/XSLoader_pm.PL b/ext/DynaLoader/XSLoader_pm.PL
index d95cdb0..2f8b3e8 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