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: d47e1c2) | patch
In S_pending_ident(), only call gv_fetchpvn_flags() if the warning is enabled.
authorNicholas Clark <nick@ccl4.org>
Sat, 24 Oct 2009 11:57:18 +0000 (12:57 +0100)
committerNicholas Clark <nick@ccl4.org>
Sat, 24 Oct 2009 11:57:18 +0000 (12:57 +0100)
commitd824713b62f02cde14f81842e437a248c159a6d1
tree06913a2559cdf58a7cbd6ea8beea2da1c04e408etree | snapshot
parentd47e1c27dd43d7b79216c58864a5e539f612e974commit | diff
In S_pending_ident(), only call gv_fetchpvn_flags() if the warning is enabled.

ckWARN(WARN_AMBIGUOUS) is cheaper than Perl_gv_fetchpvn_flags().
toke.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.