From: Felix Fietkau Date: Fri, 20 Oct 2006 13:36:00 +0000 (+0000) Subject: remove obsolete file X-Git-Tag: reboot~30587 X-Git-Url: http://git.openwrt.org/?p=openwrt%2Fopenwrt.git;a=commitdiff_plain;h=f931548438ece72100789f8eadacb8edd0d252ab;hp=dbd8cee5e7fa98035f2b017f968b7f3090c36617 remove obsolete file SVN-Revision: 5251 --- diff --git a/scripts/configtest.pl b/scripts/configtest.pl deleted file mode 100755 index 289b2fecc0..0000000000 --- a/scripts/configtest.pl +++ /dev/null @@ -1,35 +0,0 @@ -#!/usr/bin/perl -# -# Copyright (C) 2006 OpenWrt.org -# -# This is free software, licensed under the GNU General Public License v2. -# See /LICENSE for more information. -# - -my %change = ( - '^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 $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]); - } -}