- $r->status(404);
- Sesse::pr0n::Common::header($r, "404 File Not Found");
- $r->print(" <p>The file you requested was not found.</p>");
- Sesse::pr0n::Common::footer($r);
- return Apache2::Const::OK;
+ my $res = Plack::Response->new(404);
+ my $io = IO::String->new;
+ Sesse::pr0n::Common::header($r, $io, "404 File Not Found");
+ $io->print(" <p>The file you requested was not found.</p>");
+ Sesse::pr0n::Common::footer($r, $io);
+ $io->setpos(0);
+ $res->body($io);
+ return $res;