diff options
| author | Robert Spier <rspier@pobox.com> | 2001-12-20 00:10:00 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-20 15:18:25 +0000 |
| commit | eb2aae6f031274e8d45993b7ed0cf653eebff43f (patch) | |
| tree | 9f76210cd8a88b358d38ddde76e497adf561e2e1 /lib/Carp | |
| parent | 1dd0d75ce35a6585503c14631cf532c3e6f72179 (diff) | |
| download | perl-eb2aae6f031274e8d45993b7ed0cf653eebff43f.tar.gz | |
[PATCH} typo fix in Carp/Heavy.pm
Message-ID: <15394.3416.693353.107334@rls.cx>
p4raw-id: //depot/perl@13820
Diffstat (limited to 'lib/Carp')
| -rw-r--r-- | lib/Carp/Heavy.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Carp/Heavy.pm b/lib/Carp/Heavy.pm index 5de39724a9..cf108923f4 100644 --- a/lib/Carp/Heavy.pm +++ b/lib/Carp/Heavy.pm @@ -12,7 +12,7 @@ Carp heavy machinery - no user serviceable parts inside # On one line so MakeMaker will see it. use Carp; our $VERSION = $Carp::VERSION; -our ($CarpLevel, $MaxArgNums, $MaxEvalLen, $MaxLenArg, $Verbose); +our ($CarpLevel, $MaxArgNums, $MaxEvalLen, $MaxArgLen, $Verbose); sub caller_info { my $i = shift(@_) + 1; @@ -50,7 +50,7 @@ sub format_arg { $arg = defined($overload::VERSION) ? overload::StrVal($arg) : "$arg"; } $arg =~ s/'/\\'/g; - $arg = str_len_trim($arg, $MaxLenArg); + $arg = str_len_trim($arg, $MaxArgLen); # Quote it? $arg = "'$arg'" unless $arg =~ /^-?[\d.]+\z/; |