perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/lib/ModPerl Code.pm
Date Thu, 01 Feb 2001 21:35:45 GMT
dougm       01/02/01 13:35:44

  Modified:    lib/ModPerl Code.pm
  Log:
  use hex for better readability
  
  Revision  Changes    Path
  1.39      +3 -2      modperl-2.0/lib/ModPerl/Code.pm
  
  Index: Code.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v
  retrieving revision 1.38
  retrieving revision 1.39
  diff -u -r1.38 -r1.39
  --- Code.pm	2001/01/21 23:19:02	1.38
  +++ Code.pm	2001/02/01 21:35:42	1.39
  @@ -279,6 +279,7 @@
           $n++;
   
           for my $f (@$opts) {
  +            my $x = sprintf "0x%08x", $i;
               my $flag = "${class}_f_$f";
               my $cmd  = $class . $f;
               my $name = canon_name($f);
  @@ -290,7 +291,7 @@
               print $h_fh <<EOF;
   
   /* $f */
  -#define $flag $i
  +#define $flag $x
   #define $cmd(p)  ($flags(p) & $flag)
   #define ${cmd}_On(p)  ($flags(p) |= $flag)
   #define ${cmd}_Off(p) ($flags(p) &= ~$flag)
  @@ -298,7 +299,7 @@
   EOF
               push @dumper,
                 qq{fprintf(stderr, " $name %s\\n", \\
  -                         ($flags(p) & $i) ? "On " : "Off");};
  +                         ($flags(p) & $x) ? "On " : "Off");};
   
               $i += $i || 1;
           }
  
  
  

Mime
View raw message