summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorMichael G. Schwern <schwern@pobox.com>2001-09-20 17:21:34 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2001-09-21 12:14:41 +0000
commit389ec6350ec22b6ada1d6f5bbdbfe43d5338edc5 (patch)
treedcfbf972063964731198afc81102c33901c95c41 /pp_sys.c
parent825b3abc9c41ac1909965c7d6268ae6e0bcebc0e (diff)
downloadperl-389ec6350ec22b6ada1d6f5bbdbfe43d5338edc5.tar.gz
pp_chdir Win32 fix
Message-ID: <20010920212134.Y28291@blackrider> p4raw-id: //depot/perl@12107
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 0fb45215d8..40273ce315 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;