equal
deleted
inserted
replaced
126 $Epoc32Path = $toroot; |
126 $Epoc32Path = $toroot; |
127 $Epoc32Path =~ s/\\$//; |
127 $Epoc32Path =~ s/\\$//; |
128 $Epoc32Path .= $EpocRoot . "epoc32"; |
128 $Epoc32Path .= $EpocRoot . "epoc32"; |
129 $toolpath = "$Epoc32Path\\tools\\"; |
129 $toolpath = "$Epoc32Path\\tools\\"; |
130 push @INC, $toolpath; |
130 push @INC, $toolpath; |
131 $BasePath = $toroot; |
131 $BasePath = "$toroot$e32path\\"; # Note: toroot may be empty! |
132 $BasePath =~ s/\\$/$e32path\\/; |
132 $BasePath =~ s/\\\\/\\/g; # clean up path seaprators |
133 } |
133 } |
134 |
134 |
135 use E32Plat; |
135 use E32Plat; |
136 { |
136 { |
137 Plat_Init($toolpath); |
137 Plat_Init($toolpath); |