From cb551bf945dbea50db7071001928adfecb0d1bfc Mon Sep 17 00:00:00 2001
From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Mon, 28 Jan 2002 17:13:09 -0800
Subject: perl -V: (was: Re: Inline::C and Perl objects with C API's)
 Message-ID: <lemV8gzkgu/K092yn@efn.org>

p4raw-id: //depot/perl@14497
---
 configpm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/configpm b/configpm
index 86abd6d487..6216f85ae0 100755
--- a/configpm
+++ b/configpm
@@ -249,7 +249,7 @@ sub config_sh {
 
 sub config_re {
     my $re = shift;
-    my @matches = ($config_sh =~ /^$re=.*\n/mg);
+    my @matches = grep /^$re=/, split /^/, $config_sh;
     @matches ? (print @matches) : print "$re: not found\n";
 }
 
-- 
cgit v1.2.1