equal
deleted
inserted
replaced
11 # Script delete backup files from the package directory. |
11 # Script delete backup files from the package directory. |
12 |
12 |
13 use strict; |
13 use strict; |
14 use usage; |
14 use usage; |
15 use File::Spec; |
15 use File::Spec; |
16 use set_epocroot; |
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 "with names ending in '~'\n"); |
22 set_epocroot(); |
22 my $epocroot = get_epocroot(); |
23 my $epocroot = $ENV{'EPOCROOT'}; |
23 my $build_pkg_dir = get_pkg_dir(); |
24 my $build_pkg_dir = File::Spec->catfile("$epocroot","build"); |
|
25 my $deletes = 0; |
24 my $deletes = 0; |
26 delete_backups($build_pkg_dir); |
25 delete_backups($build_pkg_dir); |
27 print ">>> $deletes files deleted\n"; |
26 print ">>> $deletes files deleted\n"; |
28 exit 0; |
27 exit 0; |
29 |
28 |