[pkgsrc/trunk]: pkgsrc/pkgtools/pkglint/files - Be stricter when checking whe...

[rillig <rillig%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/7f6d2cae90c8
branches:  trunk
changeset: 508284:7f6d2cae90c8
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Fri Feb 17 18:35:34 2006 +0000

description:
- Be stricter when checking whether a shell word consists of exactly one
  variable or not.

diffstat:

 pkgtools/pkglint/files/pkglint.pl |  4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diffs (19 lines):

diff -r 79f672bc4df9 -r 7f6d2cae90c8 pkgtools/pkglint/files/pkglint.pl
--- a/pkgtools/pkglint/files/pkglint.pl Fri Feb 17 18:01:15 2006 +0000
+++ b/pkgtools/pkglint/files/pkglint.pl Fri Feb 17 18:35:34 2006 +0000
@@ -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 @@
        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$")) {