diff --git a/dist/Data-Dumper/Dumper.xs b/dist/Data-Dumper/Dumper.xs index c8e96cda74a..2bf935c1fe1 100644 --- a/dist/Data-Dumper/Dumper.xs +++ b/dist/Data-Dumper/Dumper.xs @@ -813,6 +813,12 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv, if (purity) warn("Encountered CODE ref, using dummy placeholder"); } + else if (realtype == SVt_PVIO) { + /* TODO should detect 1-3 STD handles and print the other handles numerically */ + sv_catpvn(retval, "*{$::{DUMMY}{IO}}", 17); + if (purity) + warn("Encountered IO type, using dummy placeholder"); + } else { warn("cannot handle ref type %d", (int)realtype); }