Yet another resource leak. Coverity ID 123.

[openssl.git] / crypto / perlasm / x86asm.pl

diff --git a/crypto/perlasm/x86asm.pl b/crypto/perlasm/x86asm.pl
index 24f21e17ee70fa45fe649893816ccfa514166869..8ae2b7d927a2812311b68a5220f85a4c84909d4e 100644 (file)
--- a/crypto/perlasm/x86asm.pl
+++ b/crypto/perlasm/x86asm.pl
@@ -94,6 +94,8 @@ sub ::function_end_A
     $stack+=16;        # readjust esp as if we didn't pop anything
 }
 
+sub ::asciz {   foreach (@_) { &data_byte(unpack("C*",$_),0); }   }
+
 sub ::asm_finish
 {   &file_end();
     print @out;