From 9d419b5f6925ac8219b490513f2c0e4f2d7c7f74 Mon Sep 17 00:00:00 2001
From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Sun, 17 Dec 2006 16:45:24 -0800
Subject: OS/2-specific fixes, round II Message-ID:
 <20061218084524.GA14866@powdermilk.math.berkeley.edu>

p4raw-id: //depot/perl@29580
---
 ext/DynaLoader/XSLoader_pm.PL | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'ext/DynaLoader')

diff --git a/ext/DynaLoader/XSLoader_pm.PL b/ext/DynaLoader/XSLoader_pm.PL
index 2f8b3e893e..8bd39e45cf 100644
--- a/ext/DynaLoader/XSLoader_pm.PL
+++ b/ext/DynaLoader/XSLoader_pm.PL
@@ -62,6 +62,13 @@ print OUT <<'EOT' if defined &DynaLoader::mod2fname;
 
 EOT
 
+print OUT <<'EOT' if $^O eq 'os2';
+
+    # os2 static build can dynaload, but cannot dynaload Perl modules...
+    die 'Dynaloaded Perl modules are not available in this build of Perl' if $OS2::is_static;
+
+EOT
+ 
 print OUT <<'EOT';
     my $modpname = join('/',@modparts);
     my $modlibname = (caller())[1];
-- 
cgit v1.2.1