From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 30 Dec 2001 09:27:16 +0000 (+0000)
Subject: "Port" Devel::PPPort to Win32:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a06d4b7fa7822309a686f69b7ef2469437e518ec;p=p5sagit%2Fp5-mst-13.2.git

"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
--- 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
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
--- 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;