Index: url.tcl
===================================================================
RCS file: /home/cvs/external/tclhttpd/lib/url.tcl,v
retrieving revision 1.27
diff -c -r1.27 url.tcl
*** url.tcl	2000/05/19 06:45:51	1.27
--- url.tcl	2000/07/24 22:23:15
***************
*** 160,174 ****
  
  proc Url_Unwind {sock ei ec} {
  
!     # URL implementations can raise an error and put redirect info
!     # into the errorCode variable, which should be of the form
!     # HTTPD_REDIRECT $newurl
  
      set key [lindex $ec 0]
      set error [lindex [split $ei \n] 0]
!     if {[string match HTTPD_REDIRECT $key]} {
! 	Httpd_Redirect [lindex $ec 1] $sock
! 	return
      }
  
      switch -glob -- $ei {
--- 160,186 ----
  
  proc Url_Unwind {sock ei ec} {
  
!     # URL implementations can raise special errors to unwind their processing.
  
      set key [lindex $ec 0]
      set error [lindex [split $ei \n] 0]
!     switch -- $key {
!         HTTPD_REDIRECT {
! 
! 	    # URL implementations can raise an error and put redirect info
! 	    # into the errorCode variable, which should be of the form
! 	    # HTTPD_REDIRECT $newurl
! 
!             Httpd_Redirect [lindex $ec 1] $sock
!             return
!         }
!         HTTPD_SUSPEND {
! 	    
! 	    # The domain handler has until Httpd(timeout2) to complete this request
! 	    
!             Httpd_Suspend $sock
!             return
!         }
      }
  
      switch -glob -- $ei {