summaryrefslogtreecommitdiff
path: root/Master/setuptl/TLPM/common.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/setuptl/TLPM/common.pm')
-rw-r--r--Master/setuptl/TLPM/common.pm22
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 = '% ';