summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CPAN/Queue.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPAN/Queue.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/CPAN/Queue.pm13
1 files changed, 12 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/CPAN/Queue.pm b/Master/tlpkg/tlperl/lib/CPAN/Queue.pm
index 8027d22d3b2..259e47e05f7 100644
--- a/Master/tlpkg/tlperl/lib/CPAN/Queue.pm
+++ b/Master/tlpkg/tlperl/lib/CPAN/Queue.pm
@@ -72,7 +72,7 @@ package CPAN::Queue;
# in CPAN::Distribution::rematein.
use vars qw{ @All $VERSION };
-$VERSION = "5.5002";
+$VERSION = "5.5003";
# CPAN::Queue::queue_item ;
sub queue_item {
@@ -207,6 +207,17 @@ sub reqtype_of {
return $best;
}
+sub iterator {
+ my $i = 0;
+ return sub {
+ until ($All[$i] || $i > $#All) {
+ $i++;
+ }
+ return if $i > $#All;
+ return $All[$i++]
+ };
+}
+
1;
__END__