X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=blobdiff_plain;f=crypto%2Fperlasm%2Fx86masm.pl;h=4eca7bc367f04ad22a286d90afc93430b7101a29;hp=cde38a11a40063303d2bec8761cb6044d5f0af09;hb=4db4882402a79345a075c62a87f2fb7cfe89e283;hpb=b94551e823599dee6c47dd8a60c1be416b404592

diff --git a/crypto/perlasm/x86masm.pl b/crypto/perlasm/x86masm.pl
index cde38a11a4..4eca7bc367 100644
--- a/crypto/perlasm/x86masm.pl
+++ b/crypto/perlasm/x86masm.pl
@@ -14,8 +14,7 @@ sub ::generic
 { my ($opcode,@arg)=@_;
 
     # fix hexadecimal constants
-    $arg[0] =~ s/0x([0-9a-f]+)/0$1h/oi	if (defined($arg[0]));
-    $arg[1] =~ s/0x([0-9a-f]+)/0$1h/oi	if (defined($arg[1]));
+    for (@arg) { s/0x([0-9a-f]+)/0$1h/oi; }
 
     # fix xmm references
     $arg[0] =~ s/\b[A-Z]+WORD\s+PTR/XMMWORD PTR/i if ($arg[1]=~/\bxmm[0-7]\b/i);