From: Michael G. Schwern <schwern@pobox.com>
Date: Thu, 20 Sep 2001 21:21:34 +0000 (-0400)
Subject: pp_chdir Win32 fix
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=389ec6350ec22b6ada1d6f5bbdbfe43d5338edc5;p=p5sagit%2Fp5-mst-13.2.git

pp_chdir Win32 fix
Message-ID: <20010920212134.Y28291@blackrider>

p4raw-id: //depot/perl@12107
---

diff --git a/pp_sys.c b/pp_sys.c
index 0fb4521..40273ce 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3385,8 +3385,10 @@ PP(pp_chdir)
 	{
 	    tmps = SvPV(*svp, n_a);
 	}
-	else
-	    tmps = Nullch;
+       else {            
+            PUSHi(0);
+            RETURN;
+        }
     }
     else
 	tmps = POPpx;