| commit | 2472ae81dff8c30f5d63db8ad2c937deae8be646 | [log] [tgz] |
|---|---|---|
| author | Bram Moolenaar <Bram@vim.org> | Sat Feb 23 15:04:17 2019 +0100 |
| committer | Bram Moolenaar <Bram@vim.org> | Sat Feb 23 15:04:17 2019 +0100 |
| tree | 8b082f20d56657deaab682fb910a5aa652fbf352 | |
| parent | 0d13cce3453b2274c93c5015faa1993baaebace9 [diff] [blame] |
patch 8.1.0978: blob not tested with Perl
Problem: Blob not tested with Perl.
Solution: Add more test coverage. Fixes a crash. (Dominique Pelle,
closes #4037)
diff --git a/src/if_perl.xs b/src/if_perl.xs index 2655640..099d386 100644 --- a/src/if_perl.xs +++ b/src/if_perl.xs
@@ -1570,7 +1570,7 @@ newsv = newSVpv("0z", 2); for (i = 0; i < len; i++) { - sprintf(buf, "%02X", s[i]); + sprintf(buf, "%02X", (unsigned char)(s[i])); sv_catpvn(newsv, buf, 2); } RETVAL = newsv;