Change 14497 by jhi@alpha on 2002/01/30 04:40:56
Subject: [PATCH] perl -V: (was: Re: Inline::C and Perl objects with C API's)
From: [EMAIL PROTECTED] (Yitzchak Scott-Thoennes)
Date: Tue, 29 Jan 2002 01:13:09 -0800
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/configpm#29 edit
Differences ...
==== //depot/perl/configpm#29 (xtext) ====
Index: perl/configpm
--- perl/configpm.~1~ Tue Jan 29 21:45:06 2002
+++ perl/configpm Tue Jan 29 21:45:06 2002
@@ -249,7 +249,7 @@
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";
}
End of Patch.
