equal
deleted
inserted
replaced
46 my $path = $1; |
46 my $path = $1; |
47 if($path =~ /^EPOCROOT/){ |
47 if($path =~ /^EPOCROOT/){ |
48 my $epocroot = $ENV{EPOCROOT}; |
48 my $epocroot = $ENV{EPOCROOT}; |
49 $epocroot =~ s-\\-\/-g; |
49 $epocroot =~ s-\\-\/-g; |
50 $epocroot .= "\/" unless ($epocroot =~ /\/$/); |
50 $epocroot .= "\/" unless ($epocroot =~ /\/$/); |
51 $path =~ s-^EPOCROOT[\/\\]?-$epocroot-; |
51 $path =~ s-^EPOCROOT(##)?[\/\\]?-$epocroot-; |
52 } |
52 } |
53 push (@INC, $path); |
53 push (@INC, $path); |
54 } |
54 } |
55 if($toolName =~ /configpaging/i){ |
55 if($toolName =~ /configpaging/i){ |
56 my %info = (name=>"configpaging", args=>$toolCmdLine ); |
56 my %info = (name=>"configpaging", args=>$toolCmdLine ); |