[pkgsrc/trunk]: pkgsrc/pkgtools/pkglint/files Fixed some internal pkglint err...

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

details:   https://anonhg.NetBSD.org/pkgsrc/rev/f4dbe982e7b3
branches:  trunk
changeset: 532905:f4dbe982e7b3
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Tue Sep 04 09:44:07 2007 +0000

description:
Fixed some internal pkglint errors.

diffstat:

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

diffs (30 lines):

diff -r c27d4933379b -r f4dbe982e7b3 pkgtools/pkglint/files/pkglint.pl
--- a/pkgtools/pkglint/files/pkglint.pl Tue Sep 04 09:34:20 2007 +0000
+++ b/pkgtools/pkglint/files/pkglint.pl Tue Sep 04 09:44:07 2007 +0000
@@ -1,5 +1,5 @@
 #! @PERL@
-# $NetBSD: pkglint.pl,v 1.716 2007/09/04 09:34:20 rillig Exp $
+# $NetBSD: pkglint.pl,v 1.717 2007/09/04 09:44:07 rillig Exp $
 #
 
 # pkglint - static analyzer and checker for pkgsrc packages
@@ -1789,7 +1789,7 @@
        |       \$\([^()]+\)            # make(1) variable, $(...)
        |       \$[/\@<^]               # special make(1) variables
        |       \$\$[0-9A-Z_a-z]+       # shell variable
-       |       \$\$[?@]                # special shell variables
+       |       \$\$[\#?@]              # special shell variables
        |       \$\$\{[0-9A-Z_a-z]+\}   # shell variable in braces
        |       \$\$\(                  # POSIX-style backticks replacement
        |       [^\(\)'\"\\\s;&\|<>\`\$] # non-special character
@@ -4217,8 +4217,8 @@
                        } elsif ($rest =~ s/^\`//) {
                                $state = SWST_BACKT;
                        } elsif ($rest =~ s/^\\(?:[ !"#'\(\)*;?\\^{|}]|\$\$)//) {
-                       } elsif ($rest =~ s/^\$\$([0-9A-Z_a-z]+)//
-                           || $rest =~ s/^\$\$\{([0-9A-Z_a-z]+)\}//) {
+                       } elsif ($rest =~ s/^\$\$([0-9A-Z_a-z]+|\#)//
+                           || $rest =~ s/^\$\$\{([0-9A-Z_a-z]+|\#)\}//) {
                                my ($shvarname) = ($1);
                                if ($opt_warn_quoting && $check_quoting) {
                                        $line->log_warning("Unquoted shell variable \"${shvarname}\".");