From 8051b6a64ea76a0301ee82e77d10317b1bad3e11 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Wed, 7 Aug 2024 17:14:50 -0700 Subject: [PATCH] remove unused constants --- lib/Perl/Tidy/HtmlWriter.pm | 2 +- lib/Perl/Tidy/IndentationItem.pm | 1 - lib/Perl/Tidy/Logger.pm | 1 - 3 files changed, 1 insertion(+), 3 deletions(-) diff --git a/lib/Perl/Tidy/HtmlWriter.pm b/lib/Perl/Tidy/HtmlWriter.pm index 16d05be2..84c96778 100644 --- a/lib/Perl/Tidy/HtmlWriter.pm +++ b/lib/Perl/Tidy/HtmlWriter.pm @@ -514,8 +514,8 @@ sub check_options { # X11 color names for default settings that seemed to look ok # (these color names are only used for programming clarity; the hex # numbers are actually written) +## use constant SaddleBrown => "#8B4513"; use constant ForestGreen => "#228B22"; - use constant SaddleBrown => "#8B4513"; use constant magenta4 => "#8B008B"; use constant IndianRed3 => "#CD5555"; use constant DeepSkyBlue4 => "#00688B"; diff --git a/lib/Perl/Tidy/IndentationItem.pm b/lib/Perl/Tidy/IndentationItem.pm index 49bf5588..cc1bb96c 100644 --- a/lib/Perl/Tidy/IndentationItem.pm +++ b/lib/Perl/Tidy/IndentationItem.pm @@ -28,7 +28,6 @@ BEGIN { _recoverable_spaces_ => $i++, _align_seqno_ => $i++, _marked_ => $i++, - _stack_depth_ => $i++, _K_begin_line_ => $i++, _arrow_count_ => $i++, _standard_spaces_ => $i++, diff --git a/lib/Perl/Tidy/Logger.pm b/lib/Perl/Tidy/Logger.pm index 21da632d..be502ecc 100644 --- a/lib/Perl/Tidy/Logger.pm +++ b/lib/Perl/Tidy/Logger.pm @@ -12,7 +12,6 @@ our $VERSION = '20240511.09'; use Carp; use English qw( -no_match_vars ); -use constant DEVEL_MODE => 0; use constant EMPTY_STRING => q{}; use constant SPACE => q{ }; -- 2.39.5