diff options
| author | Manoj Srivastava <srivasta@golden-gryphon.com> | 2014-04-27 17:54:01 -0700 |
|---|---|---|
| committer | Manoj Srivastava <srivasta@golden-gryphon.com> | 2014-04-27 17:54:01 -0700 |
| commit | 8f5e5726134ce5b4bd436b16f367796d851df553 (patch) | |
| tree | 0ce2ad130721dcf917d7f81fb8495bf0a189d266 /mcon/mxref.SH | |
| parent | 02bf7be6fc0f798790ef5b2160bc89a77b909428 (diff) | |
Imported Upstream version 3.5-36
Diffstat (limited to 'mcon/mxref.SH')
| -rwxr-xr-x | mcon/mxref.SH | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/mcon/mxref.SH b/mcon/mxref.SH index 1425833..6177c92 100755 --- a/mcon/mxref.SH +++ b/mcon/mxref.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: mxref.SH 25 2008-05-28 11:19:25Z rmanfredi $ +# $Id: mxref.SH 114 2012-01-28 13:01:37Z rmanfredi $ # # Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi # @@ -57,8 +58,9 @@ $startperl $spitshell >>mxref <<'!NO!SUBS!' &profile; # Read ~/.dist_profile -require 'getopts.pl'; -&usage unless &Getopts("df:hkmsVL:"); + +use Getopt::Std; +&usage unless getopts("df:hkmsVL:"); chop($date = `date`); chop($WD = `pwd`); # Working directory |