fix kernel package install bug

[openwrt.git] / openwrt / scripts / configtest.pl

diff --git a/openwrt/scripts/configtest.pl b/openwrt/scripts/configtest.pl
index 61fe8a7..709d2be 100755 (executable)
--- a/openwrt/scripts/configtest.pl
+++ b/openwrt/scripts/configtest.pl
@@ -1,11 +1,28 @@
 #!/usr/bin/perl
 #!/usr/bin/perl

-

 my %change = (
 my %change = (

-       'ROOTFS' => 'make linux-dirclean'
+       'BUSYBOX' => 'make package/busybox-clean',
+       'OPENVPN_' => 'make package/openvpn-clean',
+       'SYSCONF_' => 'make package/base-files-clean target_clean',
+       '' => 'make target_clean'
+);
+
+my @configfiles = (
+#      ['package/linux/linux.config', 'build_mipsel/linux/.config' =>
+#              'make -C package linux-clean']

 );
 
 );
 

+
+

 foreach my $change (keys %change) {
        my $v1 = `grep '$change' .config.test`;
        my $v2 = `grep '$change' .config`;
        $v1 eq $v2 or system($change{$change});
 }
 foreach my $change (keys %change) {
        my $v1 = `grep '$change' .config.test`;
        my $v2 = `grep '$change' .config`;
        $v1 eq $v2 or system($change{$change});
 }

+
+foreach my $file (@configfiles) {
+       if ((-f $file->[0]) and (-f $file->[1])) {
+               my @s1 = stat $file->[0];
+               my @s2 = stat $file->[1];
+               $s1[9] > $s2[9] and system($file->[2]);
+       }
+}