#17859 misuses s/// return values

p4raw-id: //depot/perl@17860

diff --git a/configpm b/configpm
index e0d2282..f3bc3e8 100755 (executable)
--- 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) {