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;