Commit 56afc187 authored by Richard Levitte's avatar Richard Levitte
Browse files

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: default avatarTim Hudson <tjh@openssl.org>
parent bdcadca2

util/mkdef.pl

+1 −1
Original line number Diff line number Diff line
@@ -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);

		}