From d1fb15bad755ce96c840a5b1fa37986353d41e1a Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Sat, 16 Mar 2013 10:30:13 -0700 Subject: [PATCH] import all variables except config --- Debbugs/Config.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Debbugs/Config.pm b/Debbugs/Config.pm index c7007a7..cb30eda 100644 --- a/Debbugs/Config.pm +++ b/Debbugs/Config.pm @@ -1089,7 +1089,7 @@ sub read_config{ die "Error in configuration file: $@" if $@; # Now what we do is check out the contents of %EXPORT_TAGS to see exactly which variables # we want to glob in from the configuration file - for my $variable (@{$EXPORT_TAGS{globals}}) { + for my $variable (map {$_ =~ /^(?:config|all)$/ ? () : @{$EXPORT_TAGS{$_}}} keys %EXPORT_TAGS) { my ($hash_name,$glob_name,$glob_type) = __convert_name($variable); my $var_glob = $cpt->varglob($glob_name); my $value; #= $cpt->reval("return $variable"); -- 2.39.2