From f1e339e32941a3825e4814be1b41900dff7bf4ea Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 15 Oct 2020 06:40:19 -0700
Subject: [PATCH] a VERSION update turns off any DEVEL_MODE flags

---
 dev-bin/build.pl | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/dev-bin/build.pl b/dev-bin/build.pl
index 4d31bfd6..2e64741d 100755
--- a/dev-bin/build.pl
+++ b/dev-bin/build.pl
@@ -628,6 +628,15 @@ sub update_VERSION {
     my $is_pod_file = !$is_md_file && $source_file !~ /\.pm/;
     while ( my $line = <$fh> ) {
 
+        # Look for and turn off any DEVEL_MODE constants
+        if ( $line =~ /^\s*use constant DEVEL_MODE\s*=>\s*(\d);/ ) {
+            if ( $1 != 0 ) {
+                $line = <<EOM;
+use constant DEVEL_MODE => 0;
+EOM
+            }
+        }
+
         # finish writing after the change
         if ($old_VERSION_line) {
             $ftmp->print($line);
-- 
2.39.5