From 56afc18714664e8fb395a2e143e48be3ab146d43 Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Thu, 14 Jan 2016 20:22:36 +0100 Subject: [PATCH] Avoid the r modifier for s/// (perl) It seems that the r modifier for s/// is fairly new. It's reported not to exist in perl 5.10.1, so it's better to avoid it when possible. Reviewed-by: Tim Hudson --- util/mkdef.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/util/mkdef.pl b/util/mkdef.pl index 0ad1a2d3e3..a2cc12619b 100755 --- a/util/mkdef.pl +++ b/util/mkdef.pl @@ -1572,7 +1572,7 @@ sub get_openssl_version() while() { if (/OPENSSL_VERSION_TEXT\s+"OpenSSL (\d\.\d\.)(\d[a-z]*)(-| )/) { my $suffix = $2; - my $baseversion = $1 =~ s/\./_/gr; + (my $baseversion = $1) =~ s/\./_/g; close IN; return ($baseversion."0", $baseversion.$suffix); } -- GitLab