made --nouse-unicode-gcstring default to avoid confusion

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 32929006b727f05714c76e537cb43897720ee462..96b7710bf00ddd410648c6a15fce19f79c7b26dc 100644 (file)
--- 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