From a4f990748a20c1f5d945d507cb7512d80926250e Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 8 Jun 2020 06:34:57 -0700
Subject: [PATCH] made --nouse-unicode-gcstring default to avoid confusion

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

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 32929006..96b7710b 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -1046,6 +1046,17 @@ EOM
             if ( !defined($loaded_unicode_gcstring) ) {
                 eval { require Unicode::GCString };
                 $loaded_unicode_gcstring = !$@;
+                if ( $@ && $rOpts->{'use-unicode-gcstring'} ) {
+                    Warn(<<EOM);
+----------------------
+Unable to load Unicode::GCString: $@
+Processing continues but some vertical alignment may be poor
+To prevent this warning message, you can either:
+- install module Unicode::GCString, or
+- remove '--use-unicode-gcstring' or '-gcs' from your perltidyrc or command line
+----------------------
+EOM
+                }
             }
             if ($loaded_unicode_gcstring) {
                 $length_function = sub {
@@ -2314,7 +2325,7 @@ sub generate_options {
       pass-version-line
       noweld-nested-containers
       recombine
-      use-unicode-gcstring
+      nouse-unicode-gcstring
       valign
       short-concatenation-item-length=8
       space-for-semicolon
-- 
2.39.5