mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
818 B
38 lines
818 B
package ToolFix;
|
|
#
|
|
# (c) 2001 Microsoft Corporation. All rights reserved.
|
|
#
|
|
# ToolFix: use the PATH environment to pick the LANG specific binaries
|
|
# to build self-extracting bits
|
|
# Version: 0.01 (6/5/2001) : Inital
|
|
#---------------------------------------------------------------------
|
|
#
|
|
$class='ToolFix';
|
|
$VERSION = '0.01';
|
|
|
|
require 5.003;
|
|
|
|
# Use section
|
|
use lib $ENV{RAZZLETOOLPATH};
|
|
use GetParams;
|
|
use Logmsg;
|
|
use cklang;
|
|
|
|
use strict;
|
|
no strict 'vars';
|
|
require Exporter;
|
|
@ISA = qw(Exporter);
|
|
@EXPORT= qw(AddToPath);
|
|
$DEBUG = 0;
|
|
|
|
my $ToolfixPath=$ENV{_NTDRIVE}."\\Toolfix";
|
|
|
|
sub AddToPath{
|
|
my $class=shift;
|
|
my $lang =shift;
|
|
$ENV{PATH}="$ToolfixPath\\$lang;$ENV{PATH}" if
|
|
($lang =~ /\S/ and $lang !~ /usa/i) ;
|
|
$DEBUG and print STDERR $ENV{PATH}."\n";
|
|
}
|
|
|
|
1;
|