Sign in
apache
/
mod_perl
/
2_0_4
/
.
/
ModPerl-Registry
/
t
/
cgi-bin
/
status_change.pl
blob: 5182a3933f5e527479c424c4819e9bc1125083e2 [
file
] [
log
] [
blame
]
use
Apache2
::
Const
-
compile
=>
qw
(
NOT_FOUND
);
my
$r
=
shift
;
$r
->
status
(
Apache2
::
Const
::
NOT_FOUND
);
$r
->
print
(
"Content-type: text/plain\n\n"
);