diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2000-12-05 16:23:28 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-06 16:09:09 +0000 |
| commit | b75c8c73cd7f3c92a16e03fb046f4e2a99363bc7 (patch) | |
| tree | 5fb2cf9e3d6c40bda2bc9505b5cb8026acdb24dc /lib/Carp | |
| parent | d2ab394d8cfda924d5c38dd9722ad367a06ffeca (diff) | |
| download | perl-b75c8c73cd7f3c92a16e03fb046f4e2a99363bc7.tar.gz | |
$VERSION crusade, strict, tests, etc... all over lib/
Message-ID: <20001205212328.C6473@blackrider.aocn.com>
Carp::Heavy parts not very applicable because of recent changes.
p4raw-id: //depot/perl@8013
Diffstat (limited to 'lib/Carp')
| -rw-r--r-- | lib/Carp/Heavy.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lib/Carp/Heavy.pm b/lib/Carp/Heavy.pm index 36bdcd49a3..dac9c751ab 100644 --- a/lib/Carp/Heavy.pm +++ b/lib/Carp/Heavy.pm @@ -1,8 +1,12 @@ +# Carp::Heavy uses some variables in common with Carp. package Carp; -our $MaxEvalLen; -our $MaxLenArg; -our $Verbose; +# use strict; # not yet + +# On one line so MakeMaker will see it. +use Carp; our $VERSION = $Carp::VERSION; + +our ($CarpLevel, $MaxArgNums, $MaxEvalLen, $MaxLenArg, $Verbose); sub caller_info { my $i = shift(@_) + 1; |