diff options
| author | rmanfredi <rmanfredi@2592e710-e01b-42a5-8df0-11608a6cc53d> | 2010-11-22 17:34:39 +0000 |
|---|---|---|
| committer | rmanfredi <rmanfredi@2592e710-e01b-42a5-8df0-11608a6cc53d> | 2010-11-22 17:34:39 +0000 |
| commit | 194d1db97053d853d5f81c362c461d71c05ea80e (patch) | |
| tree | 5347ef3c5cd2295ccaacd0e5f27917a8015f9fb1 /mcon/pl | |
| parent | 062d422c33815948ff07a44cb9fb30b099cc9b10 (diff) | |
Taught metalint about "${var:" type syntax.
git-svn-id: svn://svn.code.sf.net/p/dist/code/trunk/dist@33 2592e710-e01b-42a5-8df0-11608a6cc53d
Diffstat (limited to 'mcon/pl')
| -rw-r--r-- | mcon/pl/lint.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mcon/pl/lint.pl b/mcon/pl/lint.pl index c790011..1e435bf 100644 --- a/mcon/pl/lint.pl +++ b/mcon/pl/lint.pl @@ -778,10 +778,10 @@ sub p_body { } } } - # Now look at the shell variables used: can be $var or ${var} + # Now look at the shell variables used: can be $var or ${var} or ${var: local($var); local($line) = $_; - while ($check_vars && s/\$\{?(\w+)\}?/$1/) { + while ($check_vars && s/\$\{?(\w+)[\}:]?/$1/) { $var = $1; next if $var =~ /^\d+/; # Ignore $1 and friends # Record variable as undeclared but do not issue a message right now. |