@ -94,8 +94,8 @@
# here-doc -- swallow it to avoid false hits within its body (but keep the
# here-doc -- swallow it to avoid false hits within its body (but keep the
# command to which it was attached)
# command to which it was attached)
/<<[ ]*[-\\']*[A-Za-z0-9_]/ {
/<<[ ]*[-\\'"]*[A-Za-z0-9_]/ {
s/^\(.*\)<<[ ]*[-\\']*\([A-Za-z0-9_][A-Za-z0-9_]*\)'*/<\2>\1<</
s/^\(.*\)<<[ ]*[-\\'"]*\([A-Za-z0-9_][A-Za-z0-9_]*\)['"]*/<\2>\1<</
s/[ ]*<<//
s/[ ]*<<//
:hered
:hered
N
N
@ -158,7 +158,7 @@ s/.*\n//
}
}
:folded
:folded
# here-doc -- swallow it
# here-doc -- swallow it
/<<[ ]*[-\\']*[A-Za-z0-9_]/bheredoc
/<<[ ]*[-\\'"]*[A-Za-z0-9_]/bheredoc
# comment or empty line -- discard since final non-comment, non-empty line
# comment or empty line -- discard since final non-comment, non-empty line
# before closing ")", "done", "elsif", "else", or "fi" will need to be
# before closing ")", "done", "elsif", "else", or "fi" will need to be
# re-visited to drop "suspect" marking since final line of those constructs
# re-visited to drop "suspect" marking since final line of those constructs
@ -280,7 +280,7 @@ bfolded
# found here-doc -- swallow it to avoid false hits within its body (but keep
# found here-doc -- swallow it to avoid false hits within its body (but keep
# the command to which it was attached)
# the command to which it was attached)
:heredoc
:heredoc
s/^\(.*\)<<[ ]*[-\\']*\([A-Za-z0-9_][A-Za-z0-9_]*\)'*/<\2>\1<</
s/^\(.*\)<<[ ]*[-\\'"]*\([A-Za-z0-9_][A-Za-z0-9_]*\)['"]*/<\2>\1<</
s/[ ]*<<//
s/[ ]*<<//
:heredsub
:heredsub
N
N