Fix subtle Perl issue

Not a syntax error that the compiler will catch, but see
"perldoc -f do" which will lead you do "perldoc perlsyn"

Signed-off-by: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm
index ecac93f..d794238 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm
@@ -681,7 +681,8 @@ sub _get_all_search_results {
         my $count;
         my $so_far = 0;
 
-        do {
+        LOOP: { do {    # Fun fact: you cannot "last" out of a do/while in Perl
+                        # unless you wrap it another loop structure.
             my $search = $session->search . " offset(".scalar(@result_ids).")";
 
             my $res = $U->simplereq(
@@ -707,7 +708,7 @@ sub _get_all_search_results {
             last unless @this_batch; # Protect against getting fewer results
                                      # than count promised.
 
-        } while ($count - scalar(@result_ids) > 0);
+        } while ($count - scalar(@result_ids) > 0); }
     }
 
     return (undef, @result_ids);