--- ModPerl::Code.3pm-orig	2006-12-20 01:10:07.000000000 -0500
+++ ModPerl::Code.3pm	2006-12-20 01:10:34.000000000 -0500
@@ -128,147 +128,6 @@
 .rm #[ #] #H #V #F C
 .\" ========================================================================
 .\"
-.IX Title "ModPerl::Code 3"
-.TH ModPerl::Code 3 "2005-10-20" "perl v5.8.8" "User Contributed Perl Documentation"
-.SH "SYNOPSIS"
-.IX Header "SYNOPSIS"
-.SH "CONSTANTS"
-.IX Header "CONSTANTS"
-\&\s-1EOF\s0
-.PP
-.Vb 3
-\&        my $groups = $data{$class};
-\&        for my $group (sort keys %$groups) {
-\&            print $fh <<"EOF";
-.Ve
-.ie n .Sh """:$group"""
-.el .Sh "\f(CW:$group\fP"
-.IX Subsection ":$group"
-.Vb 1
-\&  use $class\e::Const -compile qw(:$group);
-.Ve
-.PP
-The \f(CW\*(C`:$group\*(C'\fR group is for \s-1XXX\s0 constants.
-.PP
-\&\s-1EOF\s0
-.PP
-.Vb 4
-\&            for my $const (sort @{ $groups->{$group} }) {
-\&                print $fh "=head3 C<$class\e::$const>\en\en\en";
-\&            }
-\&        }
-.Ve
-.PP
-.Vb 3
-\&        print $fh "=cut\en";
-\&    }
-\&}
-.Ve
-.PP
-sub generate_constants_lookup_doc {
-    my ($data) = \f(CW@_\fR;
-.PP
-.Vb 2
-\&    while (my ($class, $groups) = each %$Apache2::ConstantsTable) {
-\&        my $constants = [map { @$_ } values %$groups];
-.Ve
-.PP
-.Vb 3
-\&        constants_lookup_code_doc($constants, $class, $data);
-\&    }
-\&}
-.Ve
-.PP
-sub generate_constants_group_lookup_doc {
-    my ($data) = \f(CW@_\fR;
-.PP
-.Vb 4
-\&    while (my ($class, $groups) = each %$Apache2::ConstantsTable) {
-\&        constants_group_lookup_code_doc($class, $groups, $data);
-\&    }
-\&}
-.Ve
-.PP
-sub constants_group_lookup_code_doc {
-    my ($class, \f(CW$groups\fR, \f(CW$data\fR) = \f(CW@_\fR;
-    my \f(CW@tags\fR;
-    my \f(CW@code\fR;
-.PP
-.Vb 11
-\&    while (my ($group, $constants) = each %$groups) {
-\&        $data->{$class}{$group} = [
-\&            map {
-\&                my @ifdef = constants_ifdef($_);
-\&                s/^($constant_prefixes)_?//o;
-\&                $seen_const{$class}{$_}++;
-\&                $_;
-\&            } @$constants
-\&        ];
-\&    }
-\&}
-.Ve
-.PP
-sub constants_lookup_code_doc {
-    my ($constants, \f(CW$class\fR, \f(CW$data\fR) = \f(CW@_\fR;
-.PP
-.Vb 1
-\&    my (%switch, %alias);
-.Ve
-.PP
-.Vb 1
-\&    %alias = %shortcuts;
-.Ve
-.PP
-.Vb 3
-\&    my $postfix = lc $class;
-\&    my $package = $class . '::';
-\&    my $package_len = length $package;
-.Ve
-.PP
-.Vb 1
-\&    my $func = canon_func(qw(constants lookup), $postfix);
-.Ve
-.PP
-.Vb 10
-\&    for (@$constants) {
-\&        if (s/^($constant_prefixes)(_)?//o) {
-\&            $alias{$_} = join $2 || "", $1, $_;
-\&        }
-\&        else {
-\&            $alias{$_} ||= $_;
-\&        }
-\&        next unless /^([A-Z])/;
-\&        push @{ $switch{$1} }, $_;
-\&    }
-.Ve
-.PP
-.Vb 9
-\&    for my $key (sort keys %switch) {
-\&        my $names = $switch{$key};
-\&        for my $name (@$names) {
-\&            my @ifdef = constants_ifdef($alias{$name});
-\&            push @{ $data->{$class}{other} }, $name
-\&                unless $seen_const{$class}{$name}
-\&        }
-\&    }
-\&}
-.Ve
-.PP
-sub generate_exports {
-    my ($self, \f(CW$c_fh\fR) = \f(CW@_\fR;
-    require ModPerl::WrapXS;
-    ModPerl::WrapXS\->generate_exports($c_fh);
-}
-.PP
-# src/modules/perl/*.c files needed to build APR/APR::* outside
-# of mod_perl.so
-sub src_apr_ext {
-    return map { \*(L"modperl_$_\*(R" } (qw(error bucket),
-                                  map { \*(L"common_$_\*(R" } qw(util log));
-}
-.PP
-1;
-_\|_END_\|_
 .SH "NAME"
 ModPerl::Code \- Generate mod_perl glue code
 .SH "SYNOPSIS"