diff options
| author | Tony Cook <tony@develop-help.com> | 2016-09-05 15:40:11 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2016-10-24 11:11:39 +1100 |
| commit | 92c843fb4b4e1a1e0ac7ec0fe198dc77266838da (patch) | |
| tree | 61f261ece716628220c5dfe80e92712a1d96ecf6 /t/op/chdir.t | |
| parent | ac15b3d6d72ab4715b650413eb5ab8ed5c6dc1a4 (diff) | |
| download | perl-92c843fb4b4e1a1e0ac7ec0fe198dc77266838da.tar.gz | |
(perl #129130) make chdir allocate the stack it needs
chdir with no argument didn't ensure there was stack space available
for its result.
Diffstat (limited to 't/op/chdir.t')
| -rw-r--r-- | t/op/chdir.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/op/chdir.t b/t/op/chdir.t index 9967707a0c..38cbbe92bd 100644 --- a/t/op/chdir.t +++ b/t/op/chdir.t @@ -12,7 +12,7 @@ BEGIN { set_up_inc(qw(t . lib ../lib)); } -plan(tests => 47); +plan(tests => 48); use Config; use Errno qw(ENOENT EBADF EINVAL); @@ -162,6 +162,12 @@ sub check_env { } } +fresh_perl_is(<<'EOP', '', { stderr => 1 }, "check stack handling"); +for $x (map $_+1, 1 .. 100) { + map chdir, 1 .. $x; +} +EOP + my %Saved_Env = (); sub clean_env { foreach my $env (@magic_envs) { |