From 64b8175b624cf06b3dbdaa1800558af54697d1f5 Mon Sep 17 00:00:00 2001
From: Jim Edwards <jedwards@ucar.edu>
Date: Mon, 5 Aug 2024 13:14:09 -0600
Subject: [PATCH] replace the depricated given/when structure used in
 build_namelist

---
 bld/build-namelist | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/bld/build-namelist b/bld/build-namelist
index f2514472..adbf0eaa 100755
--- a/bld/build-namelist
+++ b/bld/build-namelist
@@ -2663,25 +2663,25 @@ sub valid_date {
   my $cal = shift;
 
   my $maxday = -1;
-  given ($$month) {
-    when (1) { $maxday = 31; }
-    when (2) {
+  for ($$month) {
+    if (1) { $maxday = 31; }
+    elsif (2) {
       if (($cal eq 'NO_LEAP') || (not leap($$year))) {
         $maxday = 28;
       } else {
         $maxday = 29;
       }
     }
-    when (3) { $maxday = 31; }
-    when (4) { $maxday = 30; }
-    when (5) { $maxday = 31; }
-    when (6) { $maxday = 30; }
-    when (7) { $maxday = 31; }
-    when (8) { $maxday = 31; }
-    when (9) { $maxday = 30; }
-    when (10) { $maxday = 31; }
-    when (11) { $maxday = 30; }
-    when (12) { $maxday = 31; }
+    elsif (3) { $maxday = 31; }
+    elsif (4) { $maxday = 30; }
+    elsif (5) { $maxday = 31; }
+    elsif (6) { $maxday = 30; }
+    elsif (7) { $maxday = 31; }
+    elsif (8) { $maxday = 31; }
+    elsif (9) { $maxday = 30; }
+    elsif (10) { $maxday = 31; }
+    elsif (11) { $maxday = 30; }
+    elsif (12) { $maxday = 31; }
   }
   if ($maxday == -1) {
     die "ERROR: can not figure out what month $$month is";