diff options
| author | rillig <rillig@pkgsrc.org> | 2006-02-17 18:35:34 +0000 |
|---|---|---|
| committer | rillig <rillig@pkgsrc.org> | 2006-02-17 18:35:34 +0000 |
| commit | d8834f89a3731e3ca0c364bc585a913e120a816c (patch) | |
| tree | 6f552e3a7f0ee769a2658b3301f19539b7b52375 /pkgtools | |
| parent | eb8988c02f96a99e52b4529f1eab04c07e5f0326 (diff) | |
| download | pkgsrc-d8834f89a3731e3ca0c364bc585a913e120a816c.tar.gz | |
- Be stricter when checking whether a shell word consists of exactly one
variable or not.
Diffstat (limited to 'pkgtools')
| -rw-r--r-- | pkgtools/pkglint/files/pkglint.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pkgtools/pkglint/files/pkglint.pl b/pkgtools/pkglint/files/pkglint.pl index 1d5093ea807..bcd39b937a9 100644 --- a/pkgtools/pkglint/files/pkglint.pl +++ b/pkgtools/pkglint/files/pkglint.pl @@ -1,5 +1,5 @@ #! @PERL@ -# $NetBSD: pkglint.pl,v 1.521 2006/02/17 15:26:01 rillig Exp $ +# $NetBSD: pkglint.pl,v 1.522 2006/02/17 18:35:34 rillig Exp $ # # pkglint - static analyzer and checker for pkgsrc packages @@ -2312,7 +2312,7 @@ sub checkline_mk_shellword($$$) { my ($line, $shellword, $check_quoting) = @_; my ($rest, $state); - if ($opt_warn_quoting && $shellword =~ qr"^\$\{(${regex_varname})(:.+)?\}$") { + if ($opt_warn_quoting && $shellword =~ qr"^\$\{(${regex_varname})(:[^}]+)?\}$") { my ($varname, $mod) = ($1, $2); if (exists(get_vartypes_map()->{$varname}) && !(defined($mod) && $mod =~ qr":Q$")) { |