-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
+# This is a patch for Base.pm.old to update it to Base.pm.
+# It was generated by makepatch 1.93 (2.0BETA) on Tue Nov 3 21:44:39 1998.
+#
+# To apply this patch, chdir to source directory Base.pm.old and enter
+#
+# patch -p1 -N < <this-file>
+
+exit
+# End of preamble.
+
+# Patch input follows.
+__DATA__
+Index: Base.pm
+Prereq: 2.76
+####### =>
+*** Base.pm.old Wed Oct 14 00:24:12 1998
+--- Base.pm Tue Nov 3 21:38:49 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");
+ if $Debug;
+! my $msg = ($perm) ? ServerHdr(301,"Moved Permanently")
+! : ServerHdr(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");
+ if $Debug;
+! my $msg = ($perm) ? StatusHdr(301,"Moved Permanently")
+! : StatusHdr(302,"Moved Temporarily");
my $hdrs = SendHeaders($msg, LocationHdr($to_uri));
$self->log($hdrs);
}
+
+End of Patch.