Re: glob in Safe compartment allows shell access

[p5sagit/p5-mst-13.2.git] / ext / DynaLoader / Makefile.PL

diff --git a/ext/DynaLoader/Makefile.PL b/ext/DynaLoader/Makefile.PL
index 6ce9527..9323935 100644 (file)
--- a/ext/DynaLoader/Makefile.PL
+++ b/ext/DynaLoader/Makefile.PL
@@ -1,23 +1,27 @@
 use ExtUtils::MakeMaker;
 
 WriteMakefile(
-    'LINKTYPE' => 'static',
-    'DEFINE'   => '-DLIBC="$(LIBC)"',
-    'SKIP'     => [qw(dynamic dynamic_lib dynamic_bs)],
-    'clean'    => {FILES => 'DynaLoader.c'},
+    NAME => 'DynaLoader',
+    LINKTYPE   => 'static',
+    DEFINE     => '-DPERL_CORE -DLIBC="$(LIBC)"',
+    MAN3PODS   => ' ',         # Pods will be built by installman.
+    SKIP       => [qw(dynamic dynamic_lib dynamic_bs)],
+    XSPROTOARG => '-noprototypes',             # XXX remove later?
+    VERSION_FROM => 'DynaLoader.pm',
+    clean      => {FILES => 'DynaLoader.c DynaLoader.xs'},
 );
 
 
 sub MY::postamble {
        '
-DynaLoader.c: $(DLSRC)
-       $(PERL) $(XSUBPP) $(XSUBPPARGS) $(DLSRC) >tmp && mv tmp $@
+DynaLoader.xs: $(DLSRC)
+       $(CP) $? $@
 
 # Perform very simple tests just to check for major gaffs.
 # We can\'t do much more for platforms we are not executing on.
 test-xs:
        for i in dl_*xs; \
-           do $(PERL) $(XSUBPP) $(XSUBPPARGS) $$i > /dev/null; \
+           do $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSUBPPARGS) $$i > /dev/null; \
        done
 ';
 }