Changeset 354

Show
Ignore:
Timestamp:
08/17/06 07:50:15 (2 years ago)
Author:
bradfitz
Message:

debugging to find weird issue in production

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/api/perl/MogileFS.pm

    r351 r354  
    2727use LWP::UserAgent; 
    2828use fields qw(root domain backend readonly); 
     29use Time::HiRes (); 
    2930 
    3031our $AUTOLOAD; 
    …… 
    13591360    # nope, we have to read a line 
    13601361    my $nfound; 
     1362    my $t1 = Time::HiRes::time(); 
    13611363    while ($nfound = select($rin, undef, undef, 3)) { 
    13621364        my $data; 
    …… 
    13761378 
    13771379        # and if we got no data, it's time to return EOF 
    1378         return undef unless $bytesin; 
     1380        unless ($bytesin) { 
     1381            $@ = "\$bytesin is 0"; 
     1382            return undef; 
     1383        } 
    13791384    } 
    13801385 
    13811386    # if we got here, nothing was readable in our time limit 
     1387    my $t2 = Time::HiRes::time(); 
     1388    $@ = sprintf("not readable in %0.02f seconds", $t2-$t1); 
    13821389    return undef; 
    13831390} 
    …… 
    14991506        my $line = $self->_getline; 
    15001507 
    1501         return $err->("Unable to read response line from server ($self->{sock})") 
     1508        return $err->("Unable to read response line from server ($self->{sock}) after PUT of $self->{length} to $self->{uri}.  _getline says: $@") 
    15021509            unless defined $line; 
    15031510