perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Grant <emailgr...@gmail.com>
Subject Re: Fixing a mod_perl module
Date Sat, 09 Dec 2006 17:51:06 GMT
> > 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

Mime
View raw message