a VERSION update turns off any DEVEL_MODE flags

diff --git a/dev-bin/build.pl b/dev-bin/build.pl
index 4d31bfd6b2d9e81a381bd9edfd2c56e4a8ca85a9..2e64741d158c623fe5120a7bfa57531880508c56 100755 (executable)
--- 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);