perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0 Makefile.PL
Date Thu, 15 Jul 2004 06:35:11 GMT
stas        2004/07/14 23:35:11

  Modified:    .        Makefile.PL
  Log:
  ($2 ? $2 : 0) is better written as ($2||0) ;)
  
  Revision  Changes    Path
  1.146     +1 -1      modperl-2.0/Makefile.PL
  
  Index: Makefile.PL
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Makefile.PL,v
  retrieving revision 1.145
  retrieving revision 1.146
  diff -u -u -r1.145 -r1.146
  --- Makefile.PL	15 Jul 2004 05:40:14 -0000	1.145
  +++ Makefile.PL	15 Jul 2004 06:35:11 -0000	1.146
  @@ -371,7 +371,7 @@
       my $build = shift;
   
       my $perl_version = $];
  -    $perl_version =~ s/5.00(\d)(?:00(\d))?/"5.$1." . ($2 ? $2 : 0)/e;
  +    $perl_version =~ s/5.00(\d)(?:00(\d))?/"5.$1." . ($2||0)/e;
       my $perl_threads = Apache::Build::PERL_HAS_ITHREADS ? "w/" : "w/o";
       my $perl_string = "Using Perl $perl_version $perl_threads ithreads";
   
  
  
  

Mime
View raw message