From 631f31e0a075d8bbbb0bbfa1475c048002d450bb Mon Sep 17 00:00:00 2001 From: nbd Date: Fri, 20 Oct 2006 13:36:00 +0000 Subject: remove obsolete file git-svn-id: svn://svn.openwrt.org/openwrt/trunk@5251 3c298f89-4303-0410-b956-a3cf2f4a3e73 --- scripts/configtest.pl | 35 ----------------------------------- 1 file changed, 35 deletions(-) delete mode 100755 scripts/configtest.pl (limited to 'scripts/configtest.pl') diff --git a/scripts/configtest.pl b/scripts/configtest.pl deleted file mode 100755 index 289b2fecc..000000000 --- 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]); - } -} -- cgit v1.2.3