scripts: add xxdi.pl

[openwrt/staging/dedeckeh.git] / scripts / kconfig.pl

diff --git a/scripts/kconfig.pl b/scripts/kconfig.pl
index 6a6bbd27472b929005e22f42498057603c8ae457..392f1d58414fa4be67d77cb432c585a8e72f2745 100755 (executable)
--- a/scripts/kconfig.pl
+++ b/scripts/kconfig.pl
@@ -102,8 +102,15 @@ sub config_sub($$) {
        my $cfg1 = shift;
        my $cfg2 = shift;
        my %config = %{$cfg1};
-       
-       foreach my $config (keys %$cfg2) {
+       my @keys = map {
+               my $expr = $_;
+               $expr =~ /[?.*]/ ?
+                       map {
+                               /^$expr$/ ? $_ : ()
+                       } keys %config : $expr;
+       } keys %$cfg2;
+
+       foreach my $config (@keys) {
                delete $config{$config};
        }
        return \%config;