equal
deleted
inserted
replaced
11 # Script to delete any Raptor build logs from |
11 # Script to delete any Raptor build logs from |
12 # $EPOCROOT/epoc32/build |
12 # $EPOCROOT/epoc32/build |
13 |
13 |
14 use strict; |
14 use strict; |
15 use usage; |
15 use usage; |
16 use set_epocroot; |
16 use places; |
17 use File::Spec; |
17 use File::Spec; |
18 use Cwd; |
18 use Cwd; |
19 |
19 |
20 usage(\@ARGV,"This script deletes all Raptor build logs"); |
20 usage(\@ARGV,"This script deletes all Raptor build logs"); |
21 set_epocroot(); |
21 my $epocroot = get_epocroot(); |
22 my $epocroot = $ENV{'EPOCROOT'}; |
22 my $log_stem = File::Spec->catfile(get_epoc32_dir(),"build","Makefile"); |
23 my $log_stem = File::Spec->catfile("$epocroot","epoc32","build","Makefile"); |
|
24 my $log_pattern = "$log_stem\.\*\.log"; |
23 my $log_pattern = "$log_stem\.\*\.log"; |
25 my @old_logs = glob($log_pattern); |
24 my @old_logs = glob($log_pattern); |
26 if (@old_logs) { |
25 if (@old_logs) { |
27 print ">>> Deleting Raptor build logs\n"; |
26 print ">>> Deleting Raptor build logs\n"; |
28 unlink @old_logs; |
27 unlink @old_logs; |