diff options
| author | Ben Tilly <ben_tilly@operamail.com> | 2001-12-01 02:01:09 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-01 20:35:31 +0000 |
| commit | a3775ca3239946dafd17edff355bf2a7e4e86b61 (patch) | |
| tree | cbcab089da12440392d296916f2a1e2c7dbfa0af /lib/Carp | |
| parent | 4eba29c16427db5c6e3c4ba0fcffbe875258d98d (diff) | |
| download | perl-a3775ca3239946dafd17edff355bf2a7e4e86b61.tar.gz | |
Enabling strict on Carp/Heavy, + internal documentation
Date: Sat, 1 Dec 2001 07:01:09 -0500
Message-ID: <3C0D2E39@operamail.com>
Subject: More verbose POD for Carp
From: "Benjamin J. Tilly" <ben_tilly@operamail.com>
Date: Sat, 1 Dec 2001 08:04:16 -0500
Message-ID: <3C285C2B@operamail.com>
p4raw-id: //depot/perl@13416
Diffstat (limited to 'lib/Carp')
| -rw-r--r-- | lib/Carp/Heavy.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/Carp/Heavy.pm b/lib/Carp/Heavy.pm index 06d57b5be0..5228b9b3a9 100644 --- a/lib/Carp/Heavy.pm +++ b/lib/Carp/Heavy.pm @@ -28,7 +28,7 @@ sub caller_info { my $sub_name = Carp::get_subname(\%call_info); if ($call_info{has_args}) { - my @args = map {Carp::format_arg($_)} @args; + my @args = map {Carp::format_arg($_)} @DB::args; if ($MaxArgNums and @args > $MaxArgNums) { # More than we want to show? $#args = $MaxArgNums; push @args, '...'; @@ -236,7 +236,10 @@ sub trusts { # Takes a package and gives a list of those trusted directly sub trusts_directly { my $class = shift; - return @{"$class\::ISA"}; + no strict 'refs'; + return @{"$class\::CARP_NOT"} + ? @{"$class\::CARP_NOT"} + : @{"$class\::ISA"}; } 1; |