From: erickson Date: Wed, 11 Oct 2006 16:44:51 +0000 (+0000) Subject: uncomment some unnecessary code X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=bec9d308d000b1d96262cbc16f8b3a06eba49a1b;p=evergreen%2Fpines.git uncomment some unnecessary code git-svn-id: svn://svn.open-ils.org/ILS/trunk@6442 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/OpenSRF/src/perlmods/OpenSRF/Transport/SlimJabber/Client.pm b/OpenSRF/src/perlmods/OpenSRF/Transport/SlimJabber/Client.pm index b61dd318c1..81c75f714f 100644 --- a/OpenSRF/src/perlmods/OpenSRF/Transport/SlimJabber/Client.pm +++ b/OpenSRF/src/perlmods/OpenSRF/Transport/SlimJabber/Client.pm @@ -253,10 +253,11 @@ sub timed_read { $self->{temp_buffer} = ''; ##### - my $ff = fcntl($fh, F_GETFL, 0); - if ($ff == ($ff | O_NONBLOCK) and $timeout > 0 ) { + # This code is no longer in use + #my $ff = fcntl($fh, F_GETFL, 0); + #if ($ff == ($ff | O_NONBLOCK) and $timeout > 0 ) { #throw OpenSRF::EX::ERROR ("File flags are set to NONBLOCK but timeout is $timeout", ERROR ); - } + #} my $t_buf = ""; my $read_size = 1024; my $f = 0;