[mp1] Makefile.PL patch

[Randy Kobes <ra...@theoryx5.uwinnipeg.ca>]

Here's a patch for mod_perl 1's Makefile.PL that does
some things for Win32 -

- defines $PERL_DIRECTIVE_HANDLERS on Win32, for use with 
Apache::ModuleConfig, when compiling with Visual Studio.

- defines $PERL_SECTIONS for Win32;

- uses Perl's touch(), rather than a system one.

===============================================================
Index: Makefile.PL
===================================================================
RCS file: /home/cvspublic/modperl/Makefile.PL,v
retrieving revision 1.205
diff -u -r1.205 Makefile.PL
--- Makefile.PL	23 Jan 2003 04:25:04 -0000	1.205
+++ Makefile.PL	23 Jan 2003 04:55:47 -0000
@@ -479,6 +479,7 @@
 
 if($Is_Win32) {
     $NO_HTTPD = 1;
+    $PERL_DIRECTIVE_HANDLERS = 1;
 } 
 
 
@@ -791,7 +792,8 @@
 	    "(need 1.2.0 or higher)";
     }
 
-    $PERL_SECTIONS = $PERL_SSI = 0 if $Is_Win32;
+#    $PERL_SECTIONS = $PERL_SSI = 0 if $Is_Win32;
+    $PERL_SSI = 0 if $Is_Win32;
     unless ($Is_Win32) {
       for (qw(PERL_SECTIONS PERL_SSI), keys %experimental) {
 	$k = $_;
@@ -1600,7 +1602,11 @@
 	my $to = '$(INST_ARCHLIB)/' . "auto/Apache/include/$_";
 	unless ($self->{PM}->{$from}) {
 	    $self->{PM}->{$from} = $to;
-	    system "$Config{touch} $from";
+#	    system "$Config{touch} $from";
+	    my @args = ($Config{perlpath}, '-MExtUtils::Command', 
+		        '-e', 'touch', $from);
+	    system(@args) == 0
+	        or die "system @args failed: $?";
 	}
     }
 
===============================================================

Thanks.

-- 
best regards,
randy


---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org