diff options
Diffstat (limited to 'mcon/U/Setvar.U')
-rw-r--r-- | mcon/U/Setvar.U | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/mcon/U/Setvar.U b/mcon/U/Setvar.U index 645d271..75b640c 100644 --- a/mcon/U/Setvar.U +++ b/mcon/U/Setvar.U @@ -1,12 +1,12 @@ -?RCS: $Id: Setvar.U,v 3.0.1.1 1994/10/29 15:58:28 ram Exp $ +?RCS: $Id$ ?RCS: -?RCS: Copyright (c) 1991-1993, Raphael Manfredi +?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi ?RCS: ?RCS: You may redistribute only under the terms of the Artistic Licence, ?RCS: as specified in the README file that comes with the distribution. ?RCS: You may reuse parts of this distribution only within the terms of ?RCS: that same Artistic Licence; a copy of which may be found at the root -?RCS: of the source tree for dist 3.0. +?RCS: of the source tree for dist 4.0. ?RCS: ?RCS: $Log: Setvar.U,v $ ?RCS: Revision 3.0.1.1 1994/10/29 15:58:28 ram @@ -40,7 +40,7 @@ ?S:. ?V:setvar:val ?T:var was td tu -: function used to set $1 to $val +: function used to set '$1' to '$val' setvar='var=$1; eval "was=\$$1"; td=$define; tu=$undef; case "$val$was" in $define$undef) . ./whoa; eval "$var=\$td";; |