From e5993ed23b592a18b6423d21f7b20db5cf88343e Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Sun, 11 Feb 2024 15:30:55 -0800 Subject: [PATCH] starting to convert perltidy to use interbracket arrorw Right now about 80% of the source uses arrows, so this will produce a uniform style. --- lib/Perl/Tidy.pm | 8 ++++---- perltidyrc | 4 ++++ 2 files changed, 8 insertions(+), 4 deletions(-) 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=']->{ }->[' -- 2.39.5