From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 15 Oct 2020 13:40:19 +0000 (-0700)
Subject: a VERSION update turns off any DEVEL_MODE flags
X-Git-Tag: 20201001.03~77
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f1e339e32941a3825e4814be1b41900dff7bf4ea;p=perltidy.git

a VERSION update turns off any DEVEL_MODE flags
---

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);