--- /dev/null
+ivan@rootwood:~/src/CGI-modules-2.76/CGI$ diff -c Base.pm Base.pm.orig
+*** Base.pm Sat Jul 18 00:33:21 1998
+--- Base.pm.orig Sat Jul 18 00:06:12 1998
+***************
+*** 938,945 ****
+ my $orig_uri = $self->get_uri;
+ $self->log("Redirecting $CGI::Base::REQUEST_METHOD $orig_uri to $to_uri")
+ if $Debug;
+! my $msg = ($perm) ? StatusHdr(301,"Moved Permanently")
+! : StatusHdr(302,"Moved Temporarily");
+ my $hdrs = SendHeaders($msg, LocationHdr($to_uri));
+ $self->log($hdrs);
+ }
+--- 938,945 ----
+ my $orig_uri = $self->get_uri;
+ $self->log("Redirecting $CGI::Base::REQUEST_METHOD $orig_uri to $to_uri")
+ if $Debug;
+! my $msg = ($perm) ? ServerHdr(301,"Moved Permanently")
+! : ServerHdr(302,"Moved Temporarily");
+ my $hdrs = SendHeaders($msg, LocationHdr($to_uri));
+ $self->log($hdrs);
+ }
+