I was checking the diffs between ActivePerl and core sources and found that the attached diff seems to have fallen through the cracks. Cheers, -Jan --- doio.c.~1~ Mon Sep 22 16:21:10 2003 +++ doio.c Wed Oct 15 16:08:42 2003 @@ -1548,7 +1548,7 @@ while (*t && isSPACE(*t)) ++t; - if (!*t && (dup2(1,2) != -1)) { + if (!*t && (PerlLIO_dup2(1,2) != -1)) { s[-2] = '\0'; break; }Thread Next