[asperl] asperl branch verified to build w/o PERL_OBJECT on Solaris and NT

p4raw-id: //depot/asperl@1059

diff --git a/util.c b/util.c
index 704ad89..5aebe10 100644 (file)
--- a/util.c
+++ b/util.c
@@ -1827,6 +1827,8 @@ my_popen(char *cmd, char *mode)
     if (pid == 0) {
        GV* tmpgv;
 
+#undef THIS
+#undef THAT
 #define THIS that
 #define THAT This
        PerlLIO_close(p[THAT]);