You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/02/01 22:35:45 UTC
cvs commit: modperl-2.0/lib/ModPerl Code.pm
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;
}