Update of /cvsroot/module-build/Module-Build/scripts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25391/scripts
Modified Files:
config_data
Log Message:
Fix some auto_features stuff in config_data
Index: config_data
===================================================================
RCS file: /cvsroot/module-build/Module-Build/scripts/config_data,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- config_data 10 Oct 2004 03:54:58 -0000 1.1
+++ config_data 14 Jul 2005 03:03:56 -0000 1.2
@@ -8,7 +8,7 @@
module => {type => '=s',
desc => 'The name of the module to configure (required)'},
feature => {type => ':s',
- desc => 'Print the value of a feature'},
+ desc => 'Print the value of a feature or all features'},
config => {type => ':s',
desc => 'Print the value of a config option'},
set_feature => {type => '=s%',
@@ -40,9 +40,13 @@
if (length $opts{feature}) {
print $cf->feature($opts{feature});
} else {
+ my %auto;
+ # note: need to support older ConfigData.pm's
+ @auto{$cf->auto_feature_names} = () if $cf->can("auto_feature_names");
+
print " Features defined in $cf:\n";
foreach my $name (sort $cf->feature_names) {
- print " $name => ", $cf->feature($name), "\n";
+ print " $name => ", $cf->feature($name), (exists $auto{$name} ? " (dynamic)" : ""), "\n";
}
}
|
