1 ivan@rootwood:~/src/CGI-modules-2.76/CGI$ diff -c Base.pm Base.pm.orig
2 *** Base.pm Sat Jul 18 00:33:21 1998
3 --- Base.pm.orig Sat Jul 18 00:06:12 1998
6 my $orig_uri = $self->get_uri;
7 $self->log("Redirecting $CGI::Base::REQUEST_METHOD $orig_uri to $to_uri")
9 ! my $msg = ($perm) ? StatusHdr(301,"Moved Permanently")
10 ! : StatusHdr(302,"Moved Temporarily");
11 my $hdrs = SendHeaders($msg, LocationHdr($to_uri));
15 my $orig_uri = $self->get_uri;
16 $self->log("Redirecting $CGI::Base::REQUEST_METHOD $orig_uri to $to_uri")
18 ! my $msg = ($perm) ? ServerHdr(301,"Moved Permanently")
19 ! : ServerHdr(302,"Moved Temporarily");
20 my $hdrs = SendHeaders($msg, LocationHdr($to_uri));