add *{$::{DUMMY}{IO}

rurban · Oct 27, 2011 · df47f38 · df47f38
1 parent 0bfc1d0
commit df47f38
Showing 1 changed file with 6 additions and 0 deletions.
diff --git 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);
 	}