diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2006-12-17 16:45:24 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-18 13:34:00 +0000 |
| commit | 9d419b5f6925ac8219b490513f2c0e4f2d7c7f74 (patch) | |
| tree | ade0148247a1332511a5db94e9ff95d8b80c9b4b /ext/DynaLoader | |
| parent | dbf3bb275a8c67f06df1e6e24df320e3d78b2d60 (diff) | |
| download | perl-9d419b5f6925ac8219b490513f2c0e4f2d7c7f74.tar.gz | |
OS/2-specific fixes, round II
Message-ID: <20061218084524.GA14866@powdermilk.math.berkeley.edu>
p4raw-id: //depot/perl@29580
Diffstat (limited to 'ext/DynaLoader')
| -rw-r--r-- | ext/DynaLoader/XSLoader_pm.PL | 7 |
1 files changed, 7 insertions, 0 deletions
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]; |