This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 6c4650b) | patch
don't call SvPV and toss the result if no PerlIO ptr
authorDaniel Dragan <bulk88@hotmail.com>
Wed, 5 Nov 2014 01:33:23 +0000 (20:33 -0500)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 5 Nov 2014 04:19:46 +0000 (20:19 -0800)
commite1a83e702673a81a9675df3921b9ac5db667623c
tree0081d7b7268a935bbb2cc01ce14454301b78e813tree | snapshot
parent6c4650b32e1142e017440b6cef647077dfed2d1acommit | diff
don't call SvPV and toss the result if no PerlIO ptr

If f is NULL, SvPV and Perl_get_context are unnecessarily executed. Fix
it for efficiency. Move 2nd dTHX to the scope where it is first used
similar to commit 2bcd6579c4 .
perlio.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.