equal
deleted
inserted
replaced
16 use places; |
16 use places; |
17 |
17 |
18 sub delete_backups($); |
18 sub delete_backups($); |
19 |
19 |
20 usage(\@ARGV,"This script deletes all files in the package directory " . |
20 usage(\@ARGV,"This script deletes all files in the package directory " . |
21 "with names ending in '~'\n"); |
21 "and the epoc32 tree with names ending in '~'\n"); |
22 my $epocroot = get_epocroot(); |
22 my $epoc32_dir = get_epoc32_dir(); |
23 my $build_pkg_dir = get_pkg_dir(); |
23 my $build_pkg_dir = get_pkg_dir(); |
24 my $deletes = 0; |
24 my $deletes = 0; |
25 delete_backups($build_pkg_dir); |
25 delete_backups($build_pkg_dir); |
|
26 delete_backups($epoc32_dir); |
26 print ">>> $deletes files deleted\n"; |
27 print ">>> $deletes files deleted\n"; |
27 exit 0; |
28 exit 0; |
28 |
29 |
29 sub delete_backups($) |
30 sub delete_backups($) |
30 { |
31 { |