--- perl5/Pg.xs Sat Aug 14 12:46:35 1999
+++ perl5.fixed/Pg.xs   Sun Oct  3 14:00:35 1999
@@ -1,6 +1,6 @@
 /*-------------------------------------------------------
  *
- * $Id: Pg.xs,v 1.12 1999/02/19 23:27:17 tgl Exp $
+ * $Id: Pg.xs,v 1.12 1999/02/19 23:27:17 tgl Exp $ (NUL bug patched)
  *
  * Copyright (c) 1997, 1998  Edmund Mergl
  *
@@ -643,7 +643,7 @@
                }
        OUTPUT:
                RETVAL
-               buf
+               buf sv_setpvn((SV*)ST(2), buf, RETVAL);

 int
 lo_write(conn, fd, buf, len)
@@ -1029,7 +1029,7 @@
                }
        OUTPUT:
                RETVAL
-               buf
+               buf sv_setpvn((SV*)ST(2), buf, RETVAL);


 int
======cut=here========================================================