From 307dc11379fefa6850036a968c505ca34e0fccb8 Mon Sep 17 00:00:00 2001
From: Jim Cromie <jcromie@cpan.org>
Date: Mon, 2 Aug 2004 03:15:23 -0600
Subject: additional -V:foo tests Message-ID: <410E5A8B.9030307@divsol.com>

p4raw-id: //depot/perl@23185
---
 configpm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'configpm')

diff --git a/configpm b/configpm
index e5f2c08849..edd0844265 100755
--- a/configpm
+++ b/configpm
@@ -368,11 +368,15 @@ sub config_re {
 }
 
 sub config_vars {
+    # implements -V:cfgvar option (see perlrun -V:)
     foreach (@_) {
+	# find optional leading, trailing colons; and query-spec
 	my ($notag,$qry,$lncont) = m/^(:)?(.*?)(:)?$/;	# flags fore and aft, 
-	my $prfx = $notag ? '': "$qry=";		# prefix for print
-	my $lnend = $lncont ? ' ' : ";\n";		# ending for print
+	# map colon-flags to print decorations
+	my $prfx = $notag ? '': "$qry=";		# tag-prefix for print
+	my $lnend = $lncont ? ' ' : ";\n";		# line ending for print
 
+	# all config-vars are by definition \w only, any \W means regex
 	if ($qry =~ /\W/) {
 	    my @matches = config_re($qry);
 	    print map "$_$lnend", @matches ? @matches : "$qry: not found"		if !$notag;
-- 
cgit v1.2.1