diff options
| -rw-r--r-- | ext/B/B.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 38f0a05593..6cd3d6039f 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -320,7 +320,7 @@ make_cop_io_object(pTHX_ COP *cop) Perl_emulate_cop_io(aTHX_ cop, value); if(SvOK(value)) { - return make_temp_object(aTHX_ newSVsv(value)); + return make_sv_object(aTHX_ NULL, value); } else { SvREFCNT_dec(value); return make_sv_object(aTHX_ NULL, NULL); |