Sander Temme wrote:
on 7/10/03 18:00, Stas Bekman at [EMAIL PROTECTED] wrote:


Does this work?

else if ($redir) {
  $RedirectOK = $redir;
}


It does. However, isn't this the same condition as in the top if clause?
Wouldn't you want to:

Index: Apache-Test/lib/Apache/TestRequest.pm
===================================================================
RCS file: /home/cvspublic/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest
.pm,v
retrieving revision 1.81
diff -u -r1.81 TestRequest.pm
--- Apache-Test/lib/Apache/TestRequest.pm 8 Jul 2003 07:56:24 -0000
1.81
+++ Apache-Test/lib/Apache/TestRequest.pm 11 Jul 2003 04:28:45 -0000
@@ -88,14 +88,12 @@
$UA = undef;
}
- if (my $redir = $args->{requests_redirectable}) {
+ if (defined (my $redir = $args->{requests_redirectable})) {
if (ref $redir and (@$redir > 1 or $redir->[0] ne 'POST')) {
$RedirectOK = 1;
} else {
$RedirectOK = 0;
}
- } else {
- $RedirectOK = $redir;
}
$args->{keep_alive} ||= $ENV{APACHE_TEST_HTTP11};


In other words, if $redir is defined, do something with it to the effect of
$RedirectOK. If it isn't defined, go with the default value which is 1.

Looks right to me. I was just looking at the diff that you've posted earlier hence the awkward fixup suggestion. You probably don't even need defined. I'll let David decide how he wants it.


What
exactly is this code trying to do?

David Wheeler was trying to make $RedirectOK to be a non-global flag, so you can change it locally to your specific test. He will soonish reply confirming whether this still works for him or not. I don't have the test suite that he has, so I can't test.


__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com



Reply via email to