Changeset 17800

Timestamp:

2008-11-10T12:49:27+13:00 (15 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.

File:

• gsdl/trunk/perllib/downloaders/WgetDownload.pm (modified) (2 diffs)

gsdl/trunk/perllib/downloaders/WgetDownload.pm

@@ -341 +341 @@
                 close($rh);             #close($serverSocket);
                 print $client "Perl terminated wget and is about to exit\n";
-                last;                       # out of inner for loop
             }
             else { # the process may just be starting up, wait
                 sleep(1);
             }
+            last;                           # out of inner for loop
             }
             last;                               # out of foreach loop
@@ -495 +495 @@
                 close($rh);             #close($serverSocket);
                 print $client "Perl terminated wget and is about to exit\n";
-                last;                       # out of inner for loop
             }
             else { # the process may just be starting up, wait
                 sleep(1);
             }
+            last;                           # out of inner for loop
             }
             last;                               # out of foreach loop