This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In deprecate.pm, only cluck() once if the leaf isn't found in the caller stack.
authorNicholas Clark <nick@ccl4.org>
Fri, 18 Feb 2011 16:15:24 +0000 (16:15 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 18 Feb 2011 18:21:12 +0000 (18:21 +0000)
commit371c4ed4d3e30c6b6dc7a3569b1cae6ed6166464
treecdcae1465c99ac30d54502815769e9125520eb77
parentef35b8f9beb00e91a540c31feaa3e68208b82d7c
In deprecate.pm, only cluck() once if the leaf isn't found in the caller stack.

Previously, if the expected leafname was not found in the caller stack, the
code was cluck, and then continue the loop with the next directories to scan.
However, this serves no useful purpose, as the loop changes nothing that causes
the failure condition, hence all that this would result in is a second cluck()
if the next scanned directories also happened to match. Now the core returns
immediately.
lib/deprecate.pm