openwrt/scripts/configtest.pl

   1 #!/usr/bin/perl
   2
   3 my %change = (
   4         'ROOTFS' => 'make linux-dirclean'
   5 );
   6
   7 foreach my $change (keys %change) {
   8         my $v1 = `grep '$change' .config.test`;
   9         my $v2 = `grep '$change' .config`;
  10         $v1 eq $v2 or system($change{$change});
  11 }