From: Hugo van der Sanden <hv@crypt.org>
Date: Sun, 8 Sep 2002 13:48:49 +0000 (+0000)
Subject: #17859 misuses s/// return values
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3905a40f663ceeef17285c01589b6dc9cce3fe88;p=p5sagit%2Fp5-mst-13.2.git

#17859 misuses s/// return values

p4raw-id: //depot/perl@17860
---

diff --git a/configpm b/configpm
index e0d2282..f3bc3e8 100755
--- a/configpm
+++ b/configpm
@@ -159,7 +159,8 @@ while (<CONFIG_SH>) {
     next if m:^#!/bin/sh:;
 
     # Catch PERL_CONFIG_SH=true and PERL_VERSION=n line from Configure.
-    my($k, $v) = s/^(\w+)=(true|\d+)\s*$/$1='$2'\n/;
+    s/^(\w+)=(true|\d+)\s*$/$1='$2'\n/;
+    my($k, $v) = ($1, $2);
 
     # grandfather PATCHLEVEL and SUBVERSION and CONFIG
     if ($k) {