From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 17 Nov 2018 01:22:13 +0000 (-0800)
Subject: fixed some comments
X-Git-Tag: 20181117^0
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ffe59c713741f017b77eae75df7754ef6db87c87;p=perltidy.git

fixed some comments
---

diff --git a/t/snippets/align19.in b/t/snippets/align19.in
index 6620fc02..a55cf4b9 100644
--- a/t/snippets/align19.in
+++ b/t/snippets/align19.in
@@ -1,3 +1,3 @@
-# big gap; do not align the '='
+# different lhs patterns, do not align the '='
 @_                                       = qw(sort grep map do eval);
 @is_not_zero_continuation_block_type{@_} = (1) x scalar(@_);
diff --git a/t/snippets/align20.in b/t/snippets/align20.in
index 826d84cc..f01fe831 100644
--- a/t/snippets/align20.in
+++ b/t/snippets/align20.in
@@ -1,3 +1,3 @@
-# a marginal two-line match: do not align
+# marginal two-line match; differnt lhs patterns; do not align
 $w[$i] = $t;
 $t = 1000000;
diff --git a/t/snippets/align21.in b/t/snippets/align21.in
index 7deed5d7..216bed19 100644
--- a/t/snippets/align21.in
+++ b/t/snippets/align21.in
@@ -1,3 +1,3 @@
-# two lines with large gap
+# two lines with large gap but same lhs pattern so align equals
 local (@pieces)            = split( /\./, $filename, 2 );
 local ($just_dir_and_base) = $pieces[0];
diff --git a/t/snippets/align5.in b/t/snippets/align5.in
index d277938a..ada0b4b3 100644
--- a/t/snippets/align5.in
+++ b/t/snippets/align5.in
@@ -1,3 +1,4 @@
+# some lists
 printline( "Broadcast", &bintodq($b),    ( $b,    $mask, $bcolor, 0 ) );
 printline( "HostMin",   &bintodq($hmin), ( $hmin, $mask, $bcolor, 0 ) );
 printline( "HostMax",   &bintodq($hmax), ( $hmax, $mask, $bcolor, 0 ) );
diff --git a/t/snippets/expect/align19.def b/t/snippets/expect/align19.def
index fdf1bca7..bcff9320 100644
--- a/t/snippets/expect/align19.def
+++ b/t/snippets/expect/align19.def
@@ -1,3 +1,3 @@
-# big gap; do not align the '='
+# different lhs patterns, do not align the '='
 @_ = qw(sort grep map do eval);
 @is_not_zero_continuation_block_type{@_} = (1) x scalar(@_);
diff --git a/t/snippets/expect/align20.def b/t/snippets/expect/align20.def
index 826d84cc..f01fe831 100644
--- a/t/snippets/expect/align20.def
+++ b/t/snippets/expect/align20.def
@@ -1,3 +1,3 @@
-# a marginal two-line match: do not align
+# marginal two-line match; differnt lhs patterns; do not align
 $w[$i] = $t;
 $t = 1000000;
diff --git a/t/snippets/expect/align21.def b/t/snippets/expect/align21.def
index 7deed5d7..216bed19 100644
--- a/t/snippets/expect/align21.def
+++ b/t/snippets/expect/align21.def
@@ -1,3 +1,3 @@
-# two lines with large gap
+# two lines with large gap but same lhs pattern so align equals
 local (@pieces)            = split( /\./, $filename, 2 );
 local ($just_dir_and_base) = $pieces[0];
diff --git a/t/snippets/expect/align5.def b/t/snippets/expect/align5.def
index d277938a..ada0b4b3 100644
--- a/t/snippets/expect/align5.def
+++ b/t/snippets/expect/align5.def
@@ -1,3 +1,4 @@
+# some lists
 printline( "Broadcast", &bintodq($b),    ( $b,    $mask, $bcolor, 0 ) );
 printline( "HostMin",   &bintodq($hmin), ( $hmin, $mask, $bcolor, 0 ) );
 printline( "HostMax",   &bintodq($hmax), ( $hmax, $mask, $bcolor, 0 ) );
diff --git a/t/snippets1.t b/t/snippets1.t
index bd8a5aa0..68927e32 100644
--- a/t/snippets1.t
+++ b/t/snippets1.t
@@ -88,6 +88,7 @@ my $salute =
 ----------
 
         'align5' => <<'----------',
+# some lists
 printline( "Broadcast", &bintodq($b),    ( $b,    $mask, $bcolor, 0 ) );
 printline( "HostMin",   &bintodq($hmin), ( $hmin, $mask, $bcolor, 0 ) );
 printline( "HostMax",   &bintodq($hmax), ( $hmax, $mask, $bcolor, 0 ) );
@@ -297,6 +298,7 @@ my $salute =
             source => "align5",
             params => "def",
             expect => <<'#6...........',
+# some lists
 printline( "Broadcast", &bintodq($b),    ( $b,    $mask, $bcolor, 0 ) );
 printline( "HostMin",   &bintodq($hmin), ( $hmin, $mask, $bcolor, 0 ) );
 printline( "HostMax",   &bintodq($hmax), ( $hmax, $mask, $bcolor, 0 ) );
diff --git a/t/snippets13.t b/t/snippets13.t
index 139927d1..c9a4f57b 100644
--- a/t/snippets13.t
+++ b/t/snippets13.t
@@ -97,19 +97,19 @@ use constant {
 ----------
 
         'align19' => <<'----------',
-# big gap; do not align the '='
+# different lhs patterns, do not align the '='
 @_                                       = qw(sort grep map do eval);
 @is_not_zero_continuation_block_type{@_} = (1) x scalar(@_);
 ----------
 
         'align20' => <<'----------',
-# a marginal two-line match: do not align
+# marginal two-line match; differnt lhs patterns; do not align
 $w[$i] = $t;
 $t = 1000000;
 ----------
 
         'align21' => <<'----------',
-# two lines with large gap
+# two lines with large gap but same lhs pattern so align equals
 local (@pieces)            = split( /\./, $filename, 2 );
 local ($just_dir_and_base) = $pieces[0];
 ----------
@@ -277,7 +277,7 @@ return (
             source => "align19",
             params => "def",
             expect => <<'#11...........',
-# big gap; do not align the '='
+# different lhs patterns, do not align the '='
 @_ = qw(sort grep map do eval);
 @is_not_zero_continuation_block_type{@_} = (1) x scalar(@_);
 #11...........
@@ -287,7 +287,7 @@ return (
             source => "align20",
             params => "def",
             expect => <<'#12...........',
-# a marginal two-line match: do not align
+# marginal two-line match; differnt lhs patterns; do not align
 $w[$i] = $t;
 $t = 1000000;
 #12...........
@@ -297,7 +297,7 @@ $t = 1000000;
             source => "align21",
             params => "def",
             expect => <<'#13...........',
-# two lines with large gap
+# two lines with large gap but same lhs pattern so align equals
 local (@pieces)            = split( /\./, $filename, 2 );
 local ($just_dir_and_base) = $pieces[0];
 #13...........