12 # Auto-generated from: @{[ '$Id$' ]}
16 PerlOptions +GlobalRequest
21 use Carp qw(confess cluck);
22 $SIG{"__WARN__"}=sub { $_[0]=~/\n./ ? warn @_ : cluck @_; };
23 $SIG{"__DIE__" }=sub { $_[0]=~/\n./ ? die @_ : confess @_; };
33 My::ModPerlPm->list("sub"=>sub {
37 PerlModule @{[ $p->{"module"} ]}
38 <Location "@{[ $p->{"url"} ]}">
40 PerlResponseHandler @{[ $p->{"module"} ]}
44 # Allow from localhost