From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 11 Feb 2024 23:30:55 +0000 (-0800)
Subject: starting to convert perltidy to use interbracket arrorw
X-Git-Tag: 20240202.02~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e5993ed23b592a18b6423d21f7b20db5cf88343e;p=perltidy.git

starting to convert perltidy to use interbracket arrorw

Right now about 80% of the source uses arrows, so this will
produce a uniform style.
---

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 0d7c63de..dde9e0c7 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -3402,7 +3402,7 @@ sub generate_options {
         $option_category{$long_name} = $category_name[$category];
         if ($short_name) {
             if ( $expansion{$short_name} ) {
-                my $existing_name = $expansion{$short_name}[0];
+                my $existing_name = $expansion{$short_name}->[0];
                 Die(
 "redefining abbreviation $short_name for $long_name; already used for $existing_name\n"
                 );
@@ -3412,7 +3412,7 @@ sub generate_options {
                 my $nshort_name = 'n' . $short_name;
                 my $nolong_name = 'no' . $long_name;
                 if ( $expansion{$nshort_name} ) {
-                    my $existing_name = $expansion{$nshort_name}[0];
+                    my $existing_name = $expansion{$nshort_name}->[0];
                     Die(
 "attempting to redefine abbreviation $nshort_name for $nolong_name; already used for $existing_name\n"
                     );
@@ -4042,7 +4042,7 @@ sub generate_options {
             my $key = $1;
             my $def = $2;
             if ( defined( $integer_option_range{$key} ) ) {
-                $integer_option_range{$key}[2] = $def;
+                $integer_option_range{$key}->[2] = $def;
             }
         }
     }
@@ -4063,7 +4063,7 @@ sub generate_options {
         if ( defined( $integer_option_range{$key} )
             && @{ $integer_option_range{$key} } < 3 )
         {
-            $integer_option_range{$key}[2] = undef;
+            $integer_option_range{$key}->[2] = undef;
         }
     }
 
diff --git a/perltidyrc b/perltidyrc
index cdb33095..6600fdac 100644
--- a/perltidyrc
+++ b/perltidyrc
@@ -28,3 +28,7 @@
 
 # this should eventually become the default
 --delete-repeated-commas
+
+# This will become -ias='*'
+--add-interbracket-arrows
+--interbracket-arrow-style=']->{ }->['