equal
deleted
inserted
replaced
118 |
118 |
119 my @path = split(/\\/, $cwd); |
119 my @path = split(/\\/, $cwd); |
120 shift(@path); |
120 shift(@path); |
121 $toroot = ('..\\') x @path; |
121 $toroot = ('..\\') x @path; |
122 $e32path = $fp0; |
122 $e32path = $fp0; |
123 $e32path =~ s/\\kernelhwsrv\\kernel\\eka\\rombuild\\rom\.pl$//i; |
123 $e32path =~ s/\\kernelhwsrv\\kernel\\eka\\rombuild\\.*$//i; |
124 $e32path =~ s/^[A-Za-z]://; |
124 $e32path =~ s/^[A-Za-z]://; |
125 $rombuildpath = $toroot."sf\\os\\kernelhwsrv\\kernel\\eka\\rombuild"; |
125 $rombuildpath = $toroot."sf\\os\\kernelhwsrv\\kernel\\eka\\rombuild"; |
126 $Epoc32Path = $toroot; |
126 $Epoc32Path = $toroot; |
127 $Epoc32Path =~ s/\\$//; |
127 $Epoc32Path =~ s/\\$//; |
128 $Epoc32Path .= $EpocRoot . "epoc32"; |
128 $Epoc32Path .= $EpocRoot . "epoc32"; |