X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=t%2Fsnippets14.t;h=b98162d95a9a4b8b004a1b21e8c8ba786367d661;hb=7f27e55dce5925b2bbe8fcfca64f385e917a52be;hp=72126a68099228063c5e1096b1eb8c4e971a5238;hpb=657098da8da16dccd551721ffc180956d8aab7fc;p=perltidy.git

diff --git a/t/snippets14.t b/t/snippets14.t
index 72126a6..b98162d 100644
--- a/t/snippets14.t
+++ b/t/snippets14.t
@@ -568,12 +568,12 @@ my %extractor_for = (
     regex     => [ $ws, $pod_or_DATA, $id, $exql ],
     string    => [ $ws, $pod_or_DATA, $id, $exql ],
     code => [
-        $ws,            { DONT_MATCH => $pod_or_DATA },
+        $ws, { DONT_MATCH => $pod_or_DATA },
         $variable, $id, { DONT_MATCH => \&extract_quotelike }
     ],
     code_no_comments => [
         { DONT_MATCH => $comment },
-        $ncws,          { DONT_MATCH => $pod_or_DATA },
+        $ncws, { DONT_MATCH => $pod_or_DATA },
         $variable, $id, { DONT_MATCH => \&extract_quotelike }
     ],
     executable => [ $ws, { DONT_MATCH => $pod_or_DATA } ],
@@ -687,12 +687,12 @@ my %extractor_for = (
     regex     => [ $ws, $pod_or_DATA, $id, $exql ],
     string    => [ $ws, $pod_or_DATA, $id, $exql ],
     code => [
-        $ws,            { DONT_MATCH => $pod_or_DATA },
+        $ws, { DONT_MATCH => $pod_or_DATA },
         $variable, $id, { DONT_MATCH => \&extract_quotelike }
     ],
     code_no_comments => [
         { DONT_MATCH => $comment },
-        $ncws,          { DONT_MATCH => $pod_or_DATA },
+        $ncws, { DONT_MATCH => $pod_or_DATA },
         $variable, $id, { DONT_MATCH => \&extract_quotelike }
     ],
     executable => [ $ws, { DONT_MATCH => $pod_or_DATA } ],
@@ -750,7 +750,7 @@ sub next_sibling {
             params => "def",
             expect => <<'#10...........',
 #!/usr/bin/perl -w
-use strict;    # with -kgb, no break after hash bang
+use strict;                # with -kgb, no break after hash bang
 our ( @Changed, $TAP );    # break after isolated 'our'
 use File::Compare;
 use Symbol;
@@ -773,7 +773,7 @@ print "break before this line\n";
             params => "kgb",
             expect => <<'#11...........',
 #!/usr/bin/perl -w
-use strict;    # with -kgb, no break after hash bang
+use strict;                # with -kgb, no break after hash bang
 our ( @Changed, $TAP );    # break after isolated 'our'
 
 use File::Compare;