234 |
my $board = $h->{'_BOARD_NAME'} || die "no _BOARD_NAME?"; |
my $board = $h->{'_BOARD_NAME'} || die "no _BOARD_NAME?"; |
235 |
if ( fw_exists( $board ) ) { |
if ( fw_exists( $board ) ) { |
236 |
my $build = $h->{'_BUILD'} || die "no _BUILD?"; |
my $build = $h->{'_BUILD'} || die "no _BUILD?"; |
237 |
|
$build =~ s/^(\d+)\.(\d+)\.(\d+)\.(\d).*$/$1.$2.$3.$4/; |
238 |
my $new_build = fw_build( $board ); |
my $new_build = fw_build( $board ); |
239 |
if ( $build ne $new_build ) { |
if ( $build ne $new_build ) { |
240 |
print "+ $ant $board version $build -> $new_build\n"; |
print "+ $ant $board version $build -> $new_build\n"; |