This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl -V: (was: Re: Inline::C and Perl objects with C API's)
authorYitzchak Scott-Thoennes <sthoenna@efn.org>
Tue, 29 Jan 2002 01:13:09 +0000 (17:13 -0800)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 30 Jan 2002 04:40:56 +0000 (04:40 +0000)
Message-ID: <lemV8gzkgu/K092yn@efn.org>

p4raw-id: //depot/perl@14497

configpm

index 86abd6d..6216f85 100755 (executable)
--- 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";
 }