From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 27 Oct 2023 17:17:41 +0000 (-0700)
Subject: check for negative --starting-indentation-level
X-Git-Tag: 20230912.05~10
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=892f338a298be5d10923fac4eb4ff0d3ecd36844;p=perltidy.git

check for negative --starting-indentation-level
---

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