common/tools/ats/hlm_prep_package.pl
changeset 1150 50e59fd71bf2
parent 1140 8f963b9f9cb4
child 1155 1bd0e92dbd45
equal deleted inserted replaced
1149:c0d6044491e0 1150:50e59fd71bf2
    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;