Re: [OOPS] Perl BUG

[Igor Khasilev]

On Fri, 26 Nov 1999, Dmitry Perfilyev wrote:

>    HI!
>  ���������� ��� ���� "����"

���������� ���...

Igor Khasilev                |
PACO Links, [EMAIL PROTECTED]    |

*** run_client.c.orig   Fri Nov 26 11:42:21 1999
--- run_client.c        Fri Nov 26 12:08:14 1999
***************
*** 728,734 ****
  check_headers(struct request *request, char *beg, char *end, int *checked, int so)
  {
  char  *start;
! char  *p;
  int   r;
  
  go:
--- 728,734 ----
  check_headers(struct request *request, char *beg, char *end, int *checked, int so)
  {
  char  *start;
! char  *p, saved;
  int   r;
  
  go:
***************
*** 736,748 ****
      start = beg + *checked;
      if ( !*checked ) {
        p = memchr(beg, '\r', end-beg);
!       if ( !p )
!           return(0);
        /* first line in request */
        *p = 0;
        r = parse_http_request(start, request, so);
        *checked = strlen(start);
!       *p = '\r';
        request->headers_off = p-beg+2;
        if ( r ) {
            return(-1);
--- 736,752 ----
      start = beg + *checked;
      if ( !*checked ) {
        p = memchr(beg, '\r', end-beg);
!       if ( !p ) {
!           if ( !(p = memchr(beg, '\n', end-beg)) )
!               return(-1);
!           saved = '\n';
!       } else
!           saved = '\r';
        /* first line in request */
        *p = 0;
        r = parse_http_request(start, request, so);
        *checked = strlen(start);
!       *p = saved;
        request->headers_off = p-beg+2;
        if ( r ) {
            return(-1);