Re^2: Date::Manip ParseRecur help needed

No dice. Running

use Date::Manip;
my @date = ParseRecur("0:0:1*5:0:0:0","","Jan 1 2020","May 31 2020");
foreach my $d (0..$#date) {
    print UnixDate($d,"%a %b %d %Y"),"\n";
}
[download]

Yields:

Sat Jan 11 2020
Sat Jan 11 2020
Sat Jan 11 2020
Sat Jan 11 2020
Sat Jan 11 2020
Sat Jan 11 2020
Sat Jan 11 2020
Sat Jan 11 2020
Sat Jan 11 2020
Wed Jan 01 1000
Mon Jan 01 1100
Sat Jan 01 1200
Fri Jan 01 1300
Wed Jan 01 1400
Mon Jan 01 1500
Sat Jan 01 1600
Fri Jan 01 1700
Wed Jan 01 1800
Mon Jan 01 1900
Sat Jan 01 2000
Fri Jan 01 2100
[download]

Replacing the second line with the "update" version gives:

Sat Jan 11 2020
Sat Jan 11 2020
Sat Jan 11 2020
Sat Jan 11 2020
Sat Jan 11 2020
Sat Jan 11 2020
Sat Jan 11 2020
Sat Jan 11 2020
Sat Jan 11 2020
Wed Jan 01 1000
Mon Jan 01 1100
Sat Jan 01 1200
Fri Jan 01 1300
Wed Jan 01 1400
Mon Jan 01 1500
Sat Jan 01 1600
Fri Jan 01 1700
Wed Jan 01 1800
Mon Jan 01 1900
Sat Jan 01 2000
Fri Jan 01 2100
[download]

Comment on Re^2: Date::Manip ParseRecur help needed Select or Download Code

Replies are listed 'Best First'.
Re^3: Date::Manip ParseRecur help needed by poj (Abbot) on Jan 11, 2020 at 19:46 UTC
`#foreach my $d (0..$#date) { foreach my $d (@date) { print UnixDate($d,"%a %b %d %Y"),"\n"; }` [download] poj	[reply] [d/l]