From 4a03901ed227a95bcd8a8d4e48088688f20dedb0 Mon Sep 17 00:00:00 2001
From: Ingela Anderton Andin <ingela@erlang.org>
Date: Fri, 7 Dec 2018 15:57:36 +0100
Subject: ssl: Use binary:copy/2 to avoid list overhead

---
 lib/ssl/src/ssl_cipher.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/ssl/src/ssl_cipher.erl b/lib/ssl/src/ssl_cipher.erl
index 54c04c13e5..66a00c60f1 100644
--- a/lib/ssl/src/ssl_cipher.erl
+++ b/lib/ssl/src/ssl_cipher.erl
@@ -889,7 +889,7 @@ is_correct_padding(GenBlockCipher, {3, 1}, false) ->
 is_correct_padding(#generic_block_cipher{padding_length = Len,
 					 padding = Padding}, _, _) ->
     Len == byte_size(Padding) andalso
-		list_to_binary(lists:duplicate(Len, Len)) == Padding.
+        binary:copy(?byte(Len), Len) == Padding.
 
 get_padding(Length, BlockSize) ->
     get_padding_aux(BlockSize, Length rem BlockSize).
@@ -898,7 +898,7 @@ get_padding_aux(_, 0) ->
     {0, <<>>};
 get_padding_aux(BlockSize, PadLength) ->
     N = BlockSize - PadLength,
-    {N, list_to_binary(lists:duplicate(N, N))}.
+    {N, binary:copy(?byte(N), N)}.
 
 random_iv(IV) ->
     IVSz = byte_size(IV),
-- 
cgit v1.2.3