From 8051b6a64ea76a0301ee82e77d10317b1bad3e11 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
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