From 482150a7b7fa28a4cdcbe9eb32bbd0a420918766 Mon Sep 17 00:00:00 2001 From: "Jerry D. Hedden" Date: Wed, 15 Aug 2007 06:39:41 -0400 Subject: Get Cwd->cwd() to work under Cygwin From: "Jerry D. Hedden" Message-ID: <1ff86f510708150739q18fa5863s55010b538d11f77f@mail.gmail.com> Updated patch originally by Reini Urban. p4raw-id: //depot/perl@31737 --- cygwin/cygwin.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'cygwin/cygwin.c') diff --git a/cygwin/cygwin.c b/cygwin/cygwin.c index 84915f811e..60d7d9488d 100644 --- a/cygwin/cygwin.c +++ b/cygwin/cygwin.c @@ -145,7 +145,10 @@ XS(Cygwin_cwd) dXSARGS; char *cwd; - if(items != 0) + /* See http://rt.perl.org/rt3/Ticket/Display.html?id=38628 + There is Cwd->cwd() usage in the wild, and previous versions didn't die. + */ + if(items > 1) Perl_croak(aTHX_ "Usage: Cwd::cwd()"); if((cwd = getcwd(NULL, -1))) { ST(0) = sv_2mortal(newSVpv(cwd, 0)); -- cgit v1.2.1