diff options
| author | Richard Levitte <levitte@openssl.org> | 2016-01-14 20:22:36 +0100 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2016-01-14 20:51:47 +0100 |
| commit | 56afc18714664e8fb395a2e143e48be3ab146d43 (patch) | |
| tree | 449e39f72e2359e61d46c41dc9054ee1e483a643 /util/mkdef.pl | |
| parent | Fix last-resort depth 0 check when the chain has multiple certificates (diff) | |
| download | openssl-56afc18714664e8fb395a2e143e48be3ab146d43.tar.xz openssl-56afc18714664e8fb395a2e143e48be3ab146d43.zip | |
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 <tjh@openssl.org>
Diffstat (limited to 'util/mkdef.pl')
| -rwxr-xr-x | util/mkdef.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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(<IN>) { 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); } |