diff options
| author | rmanfredi <rmanfredi@2592e710-e01b-42a5-8df0-11608a6cc53d> | 2012-01-28 13:01:37 +0000 |
|---|---|---|
| committer | rmanfredi <rmanfredi@2592e710-e01b-42a5-8df0-11608a6cc53d> | 2012-01-28 13:01:37 +0000 |
| commit | 7bbafe5434e6634e2e1b3d3126e0445de217d8b2 (patch) | |
| tree | e79e3a5f20a8636169a7f13cdf129dd501c47ce1 /mcon/mxref.SH | |
| parent | cd24ec3008373112ff8d883cc3596756498f01d4 (diff) | |
Switched to Getopt::Std.
git-svn-id: svn://svn.code.sf.net/p/dist/code/trunk/dist@114 2592e710-e01b-42a5-8df0-11608a6cc53d
Diffstat (limited to 'mcon/mxref.SH')
| -rwxr-xr-x | mcon/mxref.SH | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/mcon/mxref.SH b/mcon/mxref.SH index 81d8a78..5c45c1e 100755 --- a/mcon/mxref.SH +++ b/mcon/mxref.SH @@ -58,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 |