"Port" Devel::PPPort to Win32:

 - need to set @INC before use in the test
 - {} are special to dmake, so use ppport.h.PL
   rather than commandline

p4raw-id: //depot/perlio@13944

diff --git a/ext/Devel/PPPort/Makefile.PL b/ext/Devel/PPPort/Makefile.PL
index cd1217e..e578e5e 100644 (file)
--- a/ext/Devel/PPPort/Makefile.PL
+++ b/ext/Devel/PPPort/Makefile.PL
@@ -19,11 +19,11 @@ sub MY::postamble {
 
     my $retval = <<"EOM";
 
-ppport.h:      $pmfile
-       \$(PERL) "-I\$(PERL_ARCHLIB)" "-I\$(PERL_LIB)"  -e "require qq{$pmfile}; package Devel::PPPort ; sub bootstrap {} ; WriteFile(qq{ppport.h})"     
+#ppport.h::    ppport.h.PL
+#      \$(PERL) "-I\$(PERL_ARCHLIB)" "-I\$(PERL_LIB)"  ppport.h.PL > ppport.h     
 
 PPPort.xs module2.c module3.c : ppport.h
-       \$(TOUCH) \$@
+       -\$(TOUCH) \$@
 
 EOM
  

diff --git a/ext/Devel/PPPort/ppport.h.PL b/ext/Devel/PPPort/ppport.h.PL
new file mode 100644 (file)
index 0000000..4031981
--- /dev/null
+++ b/ext/Devel/PPPort/ppport.h.PL
@@ -0,0 +1,5 @@
+my $pmfile = 'PPPort.pm';
+package Devel::PPPort; 
+sub bootstrap {}; 
+require qq[$pmfile]; 
+WriteFile(qq[ppport.h]);

diff --git a/ext/Devel/PPPort/t/test.t b/ext/Devel/PPPort/t/test.t
index bdac50b..f0f3035 100644 (file)
--- a/ext/Devel/PPPort/t/test.t
+++ b/ext/Devel/PPPort/t/test.t
@@ -1,16 +1,13 @@
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib' if -d '../lib';
+}
 
 use Devel::PPPort;
-
 use strict;
 
 print "1..17\n";
 
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib' if -d '../lib';
-
-}
-
 my $total = 0;
 my $good = 0;