20 lines
644 B
Text
20 lines
644 B
Text
https://rt.cpan.org/Public/Bug/Display.html?id=123503
|
|
https://github.com/lestrrat/File-MMagic-XS/pull/6
|
|
|
|
Index: src/perl-mmagic-xs.c
|
|
--- src/perl-mmagic-xs.c.orig
|
|
+++ src/perl-mmagic-xs.c
|
|
@@ -1616,10 +1616,10 @@ PerlFMM_bufmagic(PerlFMM *self, SV *buf)
|
|
|
|
/* rt #28040, allow RV to SVs to be passed here */
|
|
if (SvROK(buf) && SvTYPE(SvRV(buf)) == SVt_PV) {
|
|
- buffer = (unsigned char *) SvPV_nolen( SvRV( buf ) );
|
|
- } else {
|
|
- buffer = (unsigned char *) SvPV_nolen(buf);
|
|
+ buf = SvRV(buf);
|
|
}
|
|
+ SvGROW(buf, HOWMANY + 1);
|
|
+ buffer = (unsigned char *) SvPV_nolen(buf);
|
|
|
|
FMM_SET_ERROR(self, NULL);
|
|
|