Changeset 17800

Show
Ignore:
Timestamp:
10.11.2008 12:49:27 (11 years ago)
Author:
ak19
Message:

BugFix?: Fixed the position of call to last to break out of for loop inside useWget and useWgetMonitored subroutines, so that it now works on windows. This needed to be done because the calls to last had been added for making things still work on Linux, but the location of the calls was wrong on Windows and caused OAIDownloads to fail all of a sudden.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/downloaders/WgetDownload.pm

    r17795 r17800  
    341341                close($rh);             #close($serverSocket); 
    342342                print $client "Perl terminated wget and is about to exit\n"; 
    343                 last;                       # out of inner for loop 
    344343            } 
    345344            else { # the process may just be starting up, wait 
    346345                sleep(1); 
    347346            } 
     347            last;                           # out of inner for loop 
    348348            } 
    349349            last;                               # out of foreach loop 
     
    495495                close($rh);             #close($serverSocket); 
    496496                print $client "Perl terminated wget and is about to exit\n"; 
    497                 last;                       # out of inner for loop 
    498497            } 
    499498            else { # the process may just be starting up, wait 
    500499                sleep(1); 
    501500            } 
     501            last;                           # out of inner for loop 
    502502            } 
    503503            last;                               # out of foreach loop