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/04/12 02:48:02 UTC
cvs commit: modperl-2.0/lib/Apache ParseSource.pm
dougm 01/04/11 17:48:02
Modified: lib/Apache ParseSource.pm
Log:
filter some junk out
Revision Changes Path
1.14 +2 -1 modperl-2.0/lib/Apache/ParseSource.pm
Index: ParseSource.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/Apache/ParseSource.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- ParseSource.pm 2001/04/11 22:38:17 1.13
+++ ParseSource.pm 2001/04/12 00:48:02 1.14
@@ -169,7 +169,7 @@
);
my $defines_unwanted = join '|', qw{
-HTTP_VERSION
+HTTP_VERSION APR_EOL_STR
};
sub get_constants {
@@ -183,6 +183,7 @@
while (<$fh>) {
if (s/^\#define\s+(\w+)\s+.*/$1/) {
chomp;
+ next if /_H$/;
next if $seen{$_}++;
$self->handle_constant(\%constants);
}