Changeset 142588 for trunk/base


Ignore:
Timestamp:
Nov 16, 2015, 2:14:43 PM (4 years ago)
Author:
ryandesign@…
Message:

portlint.tcl: add lint warning when using eval procedure instead of expansion operator

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portlint.tcl

    r140488 r142588  
    295295        }
    296296
     297        if {[regexp {(^.*)(\meval\s+)(.*)(\[glob\M)(.*$)} $line -> match_before match_eval match_between match_glob match_after]} {
     298            ui_warn "Line $lineno should use the expansion operator instead of the eval procedure. Change"
     299            ui_warn "$line"
     300            ui_warn "to"
     301            ui_warn "$match_before$match_between{*}$match_glob$match_after"
     302            incr warnings
     303        }
     304
    297305        # Check for hardcoded version numbers
    298306        if {$nitpick} {
Note: See TracChangeset for help on using the changeset viewer.