diff options
Diffstat (limited to 'mcon/mlint.SH')
-rwxr-xr-x | mcon/mlint.SH | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/mcon/mlint.SH b/mcon/mlint.SH index 4a618b1..e90ea52 100755 --- a/mcon/mlint.SH +++ b/mcon/mlint.SH @@ -11,6 +11,7 @@ case $CONFIG in . $TOP/config.sh ;; esac +REVISION=`grep REVISION $TOP/revision.h | head -n1 | cut -d' ' -f4` case "$0" in */*) cd `expr X$0 : 'X\(.*\)/'` ;; esac @@ -20,7 +21,7 @@ $startperl eval 'exec perl -S \$0 \${1+"\$@"}' if \$running_under_some_shell; -# $Id: mlint.SH 25 2008-05-28 11:19:25Z rmanfredi $ +# $Id: mlint.SH 114 2012-01-28 13:01:37Z rmanfredi $ # # Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi # @@ -57,8 +58,9 @@ $startperl $spitshell >>mlint <<'!NO!SUBS!' &profile; # Read ~/.dist_profile -require 'getopts.pl'; -&usage unless &Getopts("hklVL:"); + +use Getopt::Std; +&usage unless getopts("hklVL:"); if ($opt_V) { print STDERR "metalint $version-$revision\n"; |