From 27eaa695ea694a84772ee3f32b333496a576fa82 Mon Sep 17 00:00:00 2001
From: Duane Powell <duane.r.powell@gmail.com>
Date: Mon, 14 Oct 2019 11:41:20 -0500
Subject: fix use constant

---
 challenge-030/duane-powell/perl5/ch-1.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/challenge-030/duane-powell/perl5/ch-1.pl b/challenge-030/duane-powell/perl5/ch-1.pl
index 46ca15c946..41d888cea1 100755
--- a/challenge-030/duane-powell/perl5/ch-1.pl
+++ b/challenge-030/duane-powell/perl5/ch-1.pl
@@ -5,9 +5,11 @@ use strict;
 # Write a script to list dates for Sunday Christmas between 2019 and 2100. For example, 25 Dec 2022 is Sunday.
 
 use DateTime;
-use constant SUNDAY   => 7;
-use constant DECEMBER => 12;
-use constant XMAS     => 25;
+use constant {
+	SUNDAY   => 7,
+	DECEMBER => 12,
+	XMAS     => 25,
+};
 
 print "List of Sunday Christmas between 2019 and 2100\n";
 foreach my $year (2019 .. 2100) {
-- 
cgit