From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 4 Jan 2024 14:49:19 +0000 (-0800)
Subject: remove unused vars located with -duv
X-Git-Tag: 20230912.12~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=757c34ae25333559feb1b1a6a6f112059ba010b8;p=perltidy.git

remove unused vars located with -duv
---

diff --git a/dev-bin/build.pl b/dev-bin/build.pl
index d85abc30..67200fe2 100755
--- a/dev-bin/build.pl
+++ b/dev-bin/build.pl
@@ -417,8 +417,6 @@ sub update_version_number {
         push @sources, $lib_path . $module;
     }
 
-    my $Tidy_pm_file = $lib_path . "Tidy.pm";
-
     my $saw_pod = scan_for_pod(@sources);
     return if ($saw_pod);
 
@@ -729,7 +727,6 @@ sub update_VERSION {
     # returns changed version line if successful
     # returns nothing if failure
 
-    my $backup_extension = ".bak";
     my $old_VERSION_line;
     my $new_VERSION_line;
 
@@ -747,7 +744,6 @@ sub update_VERSION {
         return;
     }
     my $in_pod;
-    my $in_md;
     my $is_md_file  = $source_file eq 'CHANGES.md';
     my $is_pod_file = !$is_md_file && $source_file !~ /\.pm/;
     while ( my $line = <$fh> ) {