This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perlfunc: (caller)[9] is ${^WARNING_BITS}
authorFather Chrysostomos <sprout@cpan.org>
Sun, 24 Jun 2012 01:29:03 +0000 (18:29 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 24 Jun 2012 07:11:42 +0000 (00:11 -0700)
Technically, (caller)[9] returns ${^WARNING_BITS} if defined, or, if
${^WARNING_BITS} is not defined, whatever ‘use warnings’ or ‘no
warnings’ would set ${^WARNING_BITS} to, depending on the value of
$^W.  But that is subject to change, and is a bit of a mouthful.

pod/perlfunc.pod

index 240aa9f..766ec40 100644 (file)
@@ -764,7 +764,8 @@ subroutine happens to have been deleted from the symbol table.
 C<$hasargs> is true if a new instance of C<@_> was set up for the frame.
 C<$hints> and C<$bitmask> contain pragmatic hints that the caller was
 compiled with.  C<$hints> corresponds to C<$^H>, and C<$bitmask>
-corresponds to C<$^W>.  The C<$hints> and C<$bitmask> values are subject
+corresponds to C<${^WARNING_BITS}>.  The
+C<$hints> and C<$bitmask> values are subject
 to change between versions of Perl, and are not meant for external use.
 
 C<$hinthash> is a reference to a hash containing the value of C<%^H> when the