Lines 83-89
sub getTargets {
Link Here
|
83 |
# cache-file. |
83 |
# cache-file. |
84 |
my $cacheFile = $buildFile; |
84 |
my $cacheFile = $buildFile; |
85 |
$cacheFile =~ s|(.*/)?(.*)|${1}.ant-targets-${2}|; |
85 |
$cacheFile =~ s|(.*/)?(.*)|${1}.ant-targets-${2}|; |
86 |
if ((!-e $cacheFile) || (-M $buildFile) < (-M $cacheFile)) { |
86 |
if ((!-e $cacheFile) || (-z $cacheFile) || (-M $buildFile) < (-M $cacheFile)) { |
87 |
open( CACHE, '>'.$cacheFile ) || die "can\'t write $cacheFile: $!\n"; |
87 |
open( CACHE, '>'.$cacheFile ) || die "can\'t write $cacheFile: $!\n"; |
88 |
open( HELP, "$antCmd -projecthelp -f '$buildFile'|" ) || return(); |
88 |
open( HELP, "$antCmd -projecthelp -f '$buildFile'|" ) || return(); |
89 |
my %targets; |
89 |
my %targets; |