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 0d7c63deb57811855d87aaa80663832f4000cdbf..dde9e0c7bd733956a9d3c808c9b945c84ed4d687 100644 (file)
--- 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 cdb330951729956412c9e8eda555ca749d65467c..6600fdacbc86741f1835205bcdeb9ebaa99205a1 100644 (file)
--- 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=']->{ }->['