slurping an empty file should return '' rather than undef, with

[p5sagit/p5-mst-13.2.git] / objXSUB.h

diff --git a/objXSUB.h b/objXSUB.h
index 0c4efd5..8138d0d 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -1387,6 +1387,8 @@
 #define io_close               pPerl->Perl_io_close
 #undef  is_an_int
 #define is_an_int              pPerl->Perl_is_an_int
+#undef  is_handle_constructor
+#define is_handle_constructor  pPerl->Perl_is_handle_constructor
 #undef  is_uni_alnum
 #define is_uni_alnum           pPerl->Perl_is_uni_alnum
 #undef  is_uni_alnum_lc