diff options
| author | Matthew Neleigh <matthew.neleigh@gmail.com> | 2024-03-07 06:22:47 -0500 |
|---|---|---|
| committer | Matthew Neleigh <matthew.neleigh@gmail.com> | 2024-03-07 06:22:47 -0500 |
| commit | 23e8f5eab3ad4ef62889c0078284e0980230213e (patch) | |
| tree | a067a2c64d488f2d717559927a855e1b25e47031 | |
| parent | 3b16220c50921e8a01b2c67fb26de17f66a32b90 (diff) | |
| download | perlweeklychallenge-club-23e8f5eab3ad4ef62889c0078284e0980230213e.tar.gz perlweeklychallenge-club-23e8f5eab3ad4ef62889c0078284e0980230213e.tar.bz2 perlweeklychallenge-club-23e8f5eab3ad4ef62889c0078284e0980230213e.zip | |
modified: challenge-259/mattneleigh/perl/ch-1.pl
| -rwxr-xr-x | challenge-259/mattneleigh/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-259/mattneleigh/perl/ch-1.pl b/challenge-259/mattneleigh/perl/ch-1.pl index 60b1fabc14..5e3231ad14 100755 --- a/challenge-259/mattneleigh/perl/ch-1.pl +++ b/challenge-259/mattneleigh/perl/ch-1.pl @@ -115,7 +115,6 @@ sub calculate_offset_business_day{ # Advance the base date by one day and see # what day of the week this is $base += secs_per_day; - @date = gmtime($base); # See if this date is a bank holiday... if(@holidays && ($base == $holidays[0])){ @@ -128,6 +127,7 @@ sub calculate_offset_business_day{ # Skip ahead without decrementing the offset # if this is a weekend date + @date = gmtime($base); next if(($date[6] == 0) || ($date[6] == 6)); |