Fixing an apache2 perl module

I'm on the Interchange mailing list (icdevgroup.org) and we've found a
problem with our Interchange::Link 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;
}

Please let me know if you can help.

- Grant
.