分析出错，原因:

ody line 4)
    invoked from within
"foreach f [getSourceFileNames] {
    set lineNumber 1
    set previousIndent ""
    foreach line [getAllLines $f] {

        if [regexp {^.*[[:space:]..."
    (file "/usr/lib/vera++//scripts/rules/L001.tcl" line 6)