Typo in perlasm/x86asm.pl.

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