Author: adam-guest
Date: 2008-06-25 17:11:48 +0000 (Wed, 25 Jun 2008)
New Revision: 1528

Modified:
   trunk/scripts/checkbashisms.pl
Log:
Tweak the "local" regexes some more

Modified: trunk/scripts/checkbashisms.pl
===================================================================
--- trunk/scripts/checkbashisms.pl      2008-06-25 07:26:36 UTC (rev 1527)
+++ trunk/scripts/checkbashisms.pl      2008-06-25 17:11:48 UTC (rev 1528)
@@ -450,6 +450,7 @@
        $LEADIN . qr'unalias\s+-a' =>     q<unalias -a>,
        $LEADIN . qr'local\s+-[a-zA-Z]+' => q<local -opt>,
        $LEADIN . qr'local\s+\w+=' =>     q<local foo=bar>,
+       $LEADIN . qr'local\s+\w+\s+\w+' => q<local x y>,
        qr'(?:^|\s+)\s*\(?\w*[^\(\w\s]+\S*?\s*\(\)[^\"]?'
                => q<function names should only contain [a-z0-9_]>,
        $LEADIN . qr'(push|pop)d\b' =>    q<(push|pod)d>,
@@ -498,7 +499,7 @@
        $bashisms{$LEADIN . qr'echo\s+-[A-Za-z]*n'} = q<echo -n>;
     }
     if ($opt_posix) {
-       $bashisms{$LEADIN . qr'local\s+\w+(\s+|;|$)'} = q<local foo>;
+       $bashisms{$LEADIN . qr'local\s+\w+(\s+\W|\s*[;&|)]|$)'} = q<local foo>;
        $bashisms{$LEADIN . qr'((?:test|\[)\s+.+\s-[ao])\s'} = q<test -a/-o>;
     }
 



-- 
To unsubscribe, send mail to [EMAIL PROTECTED]

Reply via email to