1 # This is a patch for Base.pm.old to update it to Base.pm.
2 # It was generated by makepatch 1.93 (2.0BETA) on Tue Nov 3 21:44:39 1998.
4 # To apply this patch, chdir to source directory Base.pm.old and enter
6 # patch -p1 -N < <this-file>
11 # Patch input follows.
16 *** Base.pm.old Wed Oct 14 00:24:12 1998
17 --- Base.pm Tue Nov 3 21:38:49 1998
20 my $orig_uri = $self->get_uri;
21 $self->log("Redirecting $CGI::Base::REQUEST_METHOD $orig_uri to $to_uri")
23 ! my $msg = ($perm) ? ServerHdr(301,"Moved Permanently")
24 ! : ServerHdr(302,"Moved Temporarily");
25 my $hdrs = SendHeaders($msg, LocationHdr($to_uri));
29 my $orig_uri = $self->get_uri;
30 $self->log("Redirecting $CGI::Base::REQUEST_METHOD $orig_uri to $to_uri")
32 ! my $msg = ($perm) ? StatusHdr(301,"Moved Permanently")
33 ! : StatusHdr(302,"Moved Temporarily");
34 my $hdrs = SendHeaders($msg, LocationHdr($to_uri));