(perl #129130) make chdir allocate the stack it needs

chdir with no argument didn't ensure there was stack space available
for its result.

1 files changed, 1 insertions, 0 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 13f2913c44..10d6185426 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3635,6 +3635,7 @@ PP(pp_chdir)
 	HV * const table = GvHVn(PL_envgv);
 	SV **svp;
 
+        EXTEND(SP, 1);
         if (    (svp = hv_fetchs(table, "HOME", FALSE))
              || (svp = hv_fetchs(table, "LOGDIR", FALSE))
 #ifdef VMS