openwrt/scripts/configtest.pl

   1 #!/usr/bin/perl
   2 my %change = (
   3         'BUSYBOX' => 'make -C package busybox-clean',
   4         '' => 'make target_clean'
   5 );
   6
   7 my @configfiles = (
   8         ['package/linux/linux.config', 'build_mipsel/linux/.config' =>
   9                 'make -C package linux-clean']
  10 );
  11
  12
  13
  14 foreach my $change (keys %change) {
  15         my $v1 = `grep '$change' .config.test`;
  16         my $v2 = `grep '$change' .config`;
  17         $v1 eq $v2 or system($change{$change});
  18 }
  19
  20 foreach my $file (@configfiles) {
  21         if ((-f $file->[0]) and (-f $file->[1])) {
  22                 my @s1 = stat $file->[0];
  23                 my @s2 = stat $file->[1];
  24                 $s1[9] > $s2[9] and system($file->[2]);
  25         }
  26 }