From eb2aae6f031274e8d45993b7ed0cf653eebff43f Mon Sep 17 00:00:00 2001
From: Robert Spier <rspier@pobox.com>
Date: Thu, 20 Dec 2001 00:10:00 -0800
Subject: [PATCH} typo fix in Carp/Heavy.pm Message-ID:
 <15394.3416.693353.107334@rls.cx>

p4raw-id: //depot/perl@13820
---
 lib/Carp/Heavy.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/Carp')

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/;
-- 
cgit v1.2.1