equal
deleted
inserted
replaced
33 } |
33 } |
34 else { die "Missing parameter \"package path\". For example: D:\\sf\\app\\musicplayer"; } |
34 else { die "Missing parameter \"package path\". For example: D:\\sf\\app\\musicplayer"; } |
35 |
35 |
36 find(\&Wanted, $package_path); |
36 find(\&Wanted, $package_path); |
37 |
37 |
38 Copy a pkg file and replace \armv5\urel with $(platform)\$(target) |
38 #Copy a pkg file and replace \armv5\urel with $(platform)\$(target) |
39 foreach $file (@files) { #Replace "//v800020/Publish" with "http://cdn.symbian,org" |
39 foreach $file (@files) { #Replace "//v800020/Publish" with "http://cdn.symbian,org" |
40 copy($file,$file . ".orig") or die ("Cannot copy file \"$file\". $!\n"); |
40 copy($file,$file . ".orig") or die ("Cannot copy file \"$file\". $!\n"); |
41 tie (@lines, 'Tie::File', $file, recsep => "\n") or die ("Cannot tie file \"$file\". $!\n"); |
41 tie (@lines, 'Tie::File', $file, recsep => "\n") or die ("Cannot tie file \"$file\". $!\n"); |
42 $n = 0; |
42 $n = 0; |
43 $file_fixed = 0; |
43 $file_fixed = 0; |