diff options
Diffstat (limited to 'Master/setuptl/TLPM/common.pm')
-rw-r--r-- | Master/setuptl/TLPM/common.pm | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/Master/setuptl/TLPM/common.pm b/Master/setuptl/TLPM/common.pm index c3da31d5077..a9e9cfcfc2d 100644 --- a/Master/setuptl/TLPM/common.pm +++ b/Master/setuptl/TLPM/common.pm @@ -1,4 +1,4 @@ -# This file belongs to TLPM v2.17, TeX Live Package Manager +# This file belongs to TLPM v2.19, TeX Live Package Manager # Public Domain, P.Jackowski@gust.org.pl # common procedures; @@ -95,6 +95,26 @@ sub sys return $?; } +sub set +{ + my ($key, $val); + while($key = shift @_) + { + if($key =~ /=/) + { + ($key, $val) = split("=",$key); + } + else + { + $val = shift(@_); + } + unless($key eq '') + { + $ENV{$key} = $val; + } + } +} + # messaging $message_prefix = '% '; |