> Hello, I'm on the Interchange mailing list (icdevgroup.org) and we've
> found a problem with our Interchange::Link mod_perl module for
> apache2. I don't know perl myself, and I was wondering if anyone here
> might be able to help fix it.
>
> The problem is that the Interchange tag:
>
> [bounce href="http://www.domain.com"; status="301 moved"]
>
> uses the default 302 code when Interchange::Link is used. It uses the
> specified 301 without Interchange::Link. The problem has been
> isolated to this portion of code from Interchange::Link :
>
> if($set_status =~ /^30[21]/) {
> #warn "Doing redirect\n";
> $r->content_type($set_content);
> close (SOCK) or die "close: $!\n";
> return Apache2::Const::REDIRECT;
> }
Apache2::Const::REDIRECT is 302 and is equivalent to
Apache2::Const::HTTP_MOVED_TEMPORARILY. if you want 301 you will want
to use Apache2::Const::HTTP_MOVED_PERMANENTLY.
When I change:
return Apache2::Const::REDIRECT;
to:
return Apache2::Const::HTTP_MOVED_PERMANENTLY;
I get:
Bareword "Apache2::Const::HTTP_MOVED_PERMANENTLY" not allowed while
"strict subs" in use
I'm using mod_perl-2.0.2 and apache-2.0.58. Any ideas?
- Grant
