From 7b7dcf5ac94bed0f662436876fc7ea3297cbf179 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Fri, 31 Aug 2007 13:28:46 +0000 Subject: Following Jan's advice, remove Cygwin::is_textmount(), which duplicates the functionality of is_binmount(). p4raw-id: //depot/perl@31773 --- cygwin/cygwin.c | 15 --------------- 1 file changed, 15 deletions(-) (limited to 'cygwin') diff --git a/cygwin/cygwin.c b/cygwin/cygwin.c index 60d7d9488d..8a1ef03839 100644 --- a/cygwin/cygwin.c +++ b/cygwin/cygwin.c @@ -347,20 +347,6 @@ XS(XS_Cygwin_is_binmount) XSRETURN(1); } -XS(XS_Cygwin_is_textmount) -{ - dXSARGS; - char *pathname; - - if (items != 1) - Perl_croak(aTHX_ "Usage: Cygwin::is_textmount(pathname)"); - - pathname = SvPV_nolen(ST(0)); - - ST(0) = boolSV(!cygwin_internal(CW_GET_BINMODE, pathname)); - XSRETURN(1); -} - void init_os_extras(void) { @@ -376,7 +362,6 @@ init_os_extras(void) newXSproto("Cygwin::mount_table", XS_Cygwin_mount_table, file, ""); newXSproto("Cygwin::mount_flags", XS_Cygwin_mount_flags, file, "$"); newXSproto("Cygwin::is_binmount", XS_Cygwin_is_binmount, file, "$"); - newXSproto("Cygwin::is_textmount", XS_Cygwin_is_textmount, file, "$"); /* Initialize Win32CORE if it has been statically linked. */ handle = dlopen(NULL, RTLD_LAZY); -- cgit v1.2.1