From d91fd87295f9c91ce4e8fbe76370d6026395a6eb Mon Sep 17 00:00:00 2001
From: rhesa <rhesa@cpan.org>
Date: Fri, 9 Oct 2020 17:25:27 +0200
Subject: [PATCH] use the cloned/intersected set to get boundaries

---
 lib/DateTime/Set.pm | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

diff --git a/lib/DateTime/Set.pm b/lib/DateTime/Set.pm
index a65f85f..57661ec 100644
--- a/lib/DateTime/Set.pm
+++ b/lib/DateTime/Set.pm
@@ -514,17 +514,8 @@ sub as_list {
            $set->min->is_infinite;
 
     my @result;
-    my $next = $self->min;
-    if ( $span ) {
-        my $next1 = $span->min;
-        $next = $next1 if $next1 && $next1 > $next;
-        $next = $self->current( $next );
-    }
-    my $last = $self->max;
-    if ( $span ) {
-        my $last1 = $span->max;
-        $last = $last1 if $last1 && $last1 < $last;
-    }
+    my $next = $set->min;
+    my $last = $set->max;
     do {
         push @result, $next if !$span || $span->contains($next);
         $next = $self->next( $next );