Change 13820: [PATCH} typo fix in Carp/Heavy.pm

[Jarkko Hietaniemi]

Change 13820 by jhi@alpha on 2001/12/20 15:18:25

        Subject: [PATCH} typo fix in Carp/Heavy.pm
        From: Robert Spier <[EMAIL PROTECTED]>
        Date: Thu, 20 Dec 2001 08:10:00 -0800
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/lib/Carp/Heavy.pm#18 edit

Differences ...

==== //depot/perl/lib/Carp/Heavy.pm#18 (text) ====
Index: perl/lib/Carp/Heavy.pm
--- perl/lib/Carp/Heavy.pm.~1~  Thu Dec 20 08:30:05 2001
+++ perl/lib/Carp/Heavy.pm      Thu Dec 20 08:30:05 2001
@@ -12,7 +12,7 @@
 # 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 @@
       $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/;
End of Patch.