perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ran...@apache.org
Subject cvs commit: modperl Makefile.PL
Date Thu, 20 Feb 2003 16:42:46 GMT
randyk      2003/02/20 08:42:46

  Modified:    .        Makefile.PL
  Log:
  Reviewed by:	stas
  
  Use Perl's touch(), in case a system touch() isn't available.
  
  Revision  Changes    Path
  1.208     +5 -1      modperl/Makefile.PL
  
  Index: Makefile.PL
  ===================================================================
  RCS file: /home/cvs/modperl/Makefile.PL,v
  retrieving revision 1.207
  retrieving revision 1.208
  diff -u -r1.207 -r1.208
  --- Makefile.PL	20 Feb 2003 16:34:35 -0000	1.207
  +++ Makefile.PL	20 Feb 2003 16:42:46 -0000	1.208
  @@ -1602,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: $?";
   	}
       }
   
  
  
  

Mime
View raw message