diff options
| author | Ben Tilly <ben_tilly@operamail.com> | 2000-12-04 20:35:54 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-05 16:09:15 +0000 |
| commit | 66a4a569cc2ea11fe85bfadbec79dcd4fbf36d17 (patch) | |
| tree | 649f309243e4ed3d682e1f520153be4d3054d392 /lib/Carp.pm | |
| parent | 4334fab2a3fe291a64b4d2cc7f02e0494e956b54 (diff) | |
| download | perl-66a4a569cc2ea11fe85bfadbec79dcd4fbf36d17.tar.gz | |
Need help with warnings :-(
Date: Tue, 05 Dec 2000 01:35:54 -0500
Message-ID: <LAW2-F2380n7J95K7aI00001bb9@hotmail.com>
Subject: UPDATE: Carp/Heavy now passes all tests
From: "Ben Tilly" <ben_tilly@hotmail.com>
Date: Tue, 05 Dec 2000 07:59:41 -0500
Message-ID: <LAW2-F58V1qdiixjnzi00005523@hotmail.com>
The Brave New Carp.
p4raw-id: //depot/perl@7993
Diffstat (limited to 'lib/Carp.pm')
| -rw-r--r-- | lib/Carp.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Carp.pm b/lib/Carp.pm index 43524ddbe5..f7e9bf136a 100644 --- a/lib/Carp.pm +++ b/lib/Carp.pm @@ -68,6 +68,8 @@ $MaxArgLen = 64; # How much of each argument to print. 0 = all. $MaxArgNums = 8; # How many arguments to print. 0 = all. $Verbose = 0; # If true then make shortmess call longmess instead +$CarpInternal{Carp}++; + require Exporter; @ISA = ('Exporter'); @EXPORT = qw(confess croak carp); |