From 892f338a298be5d10923fac4eb4ff0d3ecd36844 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 27 Oct 2023 10:17:41 -0700
Subject: [PATCH] check for negative --starting-indentation-level

---
 lib/Perl/Tidy.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 0dfbdc77..ef043b4f 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -4538,6 +4538,13 @@ sub check_options {
 EOM
     }
 
+    my $sil = $rOpts->{'starting-indentation-level'};
+    if ( defined($sil) && $sil < 0 ) {
+        Die(<<EOM);
+--starting-indentation-level=$sil not possible; it should be non-negative
+EOM
+    }
+
     # Since -vt, -vtc, and -cti are abbreviations, but under
     # msdos, an unquoted input parameter like vtc=1 will be
     # seen as 2 parameters, vtc and 1, so the abbreviations
-- 
2.39.5