Cleanup as per pmichaud++'s comment

rakudo · Sep 6, 2010 · 0a93184 · 0a93184
1 parent b736c88
commit 0a93184
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -451,12 +451,10 @@ our multi sub infix:<...>(@lhs, @rhs is copy) {
 }
 
 our multi sub infix:<...^>($lhs, $rhs) {
-	my @all := ($lhs ... $rhs);
-	return Nil unless defined @all[0];
+	my $all = ($lhs ... $rhs);
 	gather {
-		loop {
-			last unless defined @all[0];
-			my $current = @all.shift() ;
+		while ($all) {
+			my $current = $all.shift() ;
 			last if $current eqv $rhs ;
 			take $current;
 		}