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