$SIG{"__DIE__" }=sub { $_[0]=~/\n./ ? die @_ : confess @_; };
</Perl>
-<Directory "/">
- Order Allow,Deny
- Deny from all
-</Directory>
HERE
+#<Directory "/">
+# Order Allow,Deny
+# Deny from all
+#</Directory>
My::ModPerlPm->list("sub"=>sub {
<Location "@{[ $p->{"url"} ]}">
SetHandler modperl
PerlResponseHandler @{[ $p->{"module"} ]}
- Order Deny,Allow
- Allow from localhost
</Location>
HERE
+# Order Deny,Allow
+# Allow from localhost
});
print <<"HERE";