#17859 misuses s/// return values

p4raw-id: //depot/perl@17860

1 files changed, 2 insertions, 1 deletions

diff --git a/configpm b/configpm
index e0d2282ee0..f3bc3e8518 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) {