From 28aaf32ca3855d151f0744a48e635ad9db185ec1 Mon Sep 17 00:00:00 2001
From: Solomon Foster <colomon@gmail.com>
Date: Thu, 17 Jun 2010 16:44:13 -0400
Subject: [PATCH] If the generating Block in the series operator returns
 something undefined, the series terminates.

---
 src/core/operators.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/core/operators.pm b/src/core/operators.pm
index 98dde57f83e..38a17ba5599 100644
--- a/src/core/operators.pm
+++ b/src/core/operators.pm
@@ -395,7 +395,7 @@ our multi sub infix:<...>(@lhs is copy, $rhs) {
 
         if !$limit.defined || $limit cmp $j != 0 {
             loop {
-                my $i = $next.(|@args);
+                my $i = $next.(|@args) // last;
                 my $j = $i;
 
                 my $cur_cmp = 1;