Fixed some (Linux kernel?) compatibility problem of flock(1) of a directory.

[MyWeb.git] / Redirect.pm

diff --git a/Redirect.pm b/Redirect.pm
index 0c0654a..871f65f 100644 (file)
--- a/Redirect.pm
+++ b/Redirect.pm
@@ -27,7 +27,9 @@ use My::Web;
 use Apache2::Const qw(HTTP_MOVED_PERMANENTLY);
 
 
-our $HTML_TEST=0;
+our $HTML_TEST="download";
+our $HTML_TEST_RC=HTTP_MOVED_PERMANENTLY;
+our $HTML_TEST_QUERY_STRING="location=http://localhost/";
 
 sub handler
 {
@@ -37,6 +39,5 @@ my $W=My::Web->init(
                                },
                );
 My::Web->http_moved($W->{"args"}{"location"},HTTP_MOVED_PERMANENTLY);
-die "NOTREACHED";
 }
 1;