[Module-build-checkins] Module-Build/scripts config_data,1.1,1.2

[Ken W. <kwi...@us...>]

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";
     }
   }