add diagnostics to delete_first

dagolden · Apr 13, 2013 · 659aa40 · 659aa40
1 parent bb0152f
commit 659aa40
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/CPAN/Queue.pm b/lib/CPAN/Queue.pm
@@ -99,9 +99,13 @@ sub delete_first {
     for my $i (0..$#All) {
         if (  $All[$i]->{qmod} eq $what ) {
             splice @All, $i, 1;
-            return;
+            last;
         }
     }
+    CPAN->debug(sprintf("after delete_first mod[%s] All[%s]",
+                        $what,
+                        join("",map {sprintf " %s\[%s]\n",$_->{qmod},$_->{reqtype}} @All)
+                       )) if $CPAN::DEBUG;
 }
 
 # CPAN::Queue::jumpqueue ;