Remove NetWare support

[perl5.git] / ext / DynaLoader / Makefile.PL

diff --git a/ext/DynaLoader/Makefile.PL b/ext/DynaLoader/Makefile.PL
index a58e952..9e9a109 100644 (file)
--- a/ext/DynaLoader/Makefile.PL
+++ b/ext/DynaLoader/Makefile.PL
@@ -1,8 +1,9 @@
 use strict;
+use warnings;
+
 use ExtUtils::MakeMaker;
 
 my $is_mswin    = $^O eq 'MSWin32';
-my $is_netware  = $^O eq 'NetWare';
 my $is_vms      = $^O eq 'VMS';
 
 WriteMakefile(
@@ -12,19 +13,26 @@ WriteMakefile(
     SKIP       => [qw(dynamic dynamic_lib dynamic_bs)],
     XSPROTOARG => '-noprototypes',             # XXX remove later?
     VERSION_FROM => 'DynaLoader_pm.PL',
-    PL_FILES   => {'DynaLoader_pm.PL'=>'DynaLoader.pm',
-                   'XSLoader_pm.PL'=>'XSLoader.pm'},
-    PM         => {'DynaLoader.pm' => '$(INST_LIBDIR)/DynaLoader.pm',
-                   'XSLoader.pm' => '$(INST_LIBDIR)/XSLoader.pm'},
-    depend      => {'DynaLoader$(OBJ_EXT)' => 'dlutils.c'},
-    clean      => {FILES => 'DynaLoader.c DynaLoader.xs DynaLoader.pm ' .
-                            'XSLoader.pm'},
+    PL_FILES   => {'DynaLoader_pm.PL'=>'DynaLoader.pm'},
+    PM         => {'DynaLoader.pm' => '$(INST_LIBDIR)/DynaLoader.pm'},
+    depend      => {   'DynaLoader$(OBJ_EXT)' => 'dlutils.c',
+                       'DynaLoader.c' => 'DynaLoader.xs'},
+    clean      => {FILES => 'DynaLoader.c DynaLoader.xs DynaLoader.pm'},
 );
 
+sub MY::cflags {
+  package MY;
+  my $flags = shift->SUPER::cflags(@_);
+  if ($flags =~ /-DUSEIMPORTLIB/m) {
+    $flags =~ s/-DUSEIMPORTLIB/-UUSEIMPORTLIB/m;
+  }
+  $flags;
+}
+
 sub MY::postamble {
     my $test_xs;
 
-    if ($is_mswin || $is_netware || $is_vms) {
+    if ($is_mswin || $is_vms) {
        $test_xs = '';
     } else {
        $test_xs = <<'EOT';
@@ -47,10 +55,10 @@ DynaLoader.xs: $(DLSRC)
 
 sub MY::static {
     my $object;
-    if ($is_mswin || $is_netware) {
+    if ($is_mswin) {
        $object = '$(PERL_SRC)\\$(OBJECT)';
     } elsif ($is_vms) {
-       $object = '[$(PERL_SRC)].$(OBJECT)';
+       $object = '$(PERL_SRC)$(OBJECT)';
     } else {
        $object = '$(PERL_SRC)/$(OBJECT)';
     }