This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
avoid reading errno twice in a row
authorZefram <zefram@fysh.org>
Sat, 11 Nov 2017 23:58:32 +0000 (23:58 +0000)
committerZefram <zefram@fysh.org>
Sat, 11 Nov 2017 23:58:32 +0000 (23:58 +0000)
commit69374fe705978962b85217f3eb828a93f836fd8d
tree35cdfe3f00740ca6ee7540d3b02ac5e04d7e1f7e
parentb8897079199ab3165b21ca3aff78c7479842181a
avoid reading errno twice in a row

Reading errno can involve calling a function and indirecting through
its result, so cache the value of errno where possible.  [perl #122096]
perl.c
win32/win32.c