+# Carp::Heavy uses some variables in common with Carp.
package Carp;
-our $MaxEvalLen;
-our $MaxLenArg;
-our $Verbose;
+=head1 NAME
+
+Carp heavy machinery - no user serviceable parts inside
+
+=cut
+
+# 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;
$arg = 'undef';
}
elsif (ref($arg)) {
- $arg .= ''; # Make it a string;
+ $arg = defined($overload::VERSION) ? overload::StrVal($arg) : "$arg";
}
$arg =~ s/'/\\'/g;
$arg = str_len_trim($arg, $MaxLenArg);