# 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;
$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/;
sub trusts_directly {
my $class = shift;
no strict 'refs';
+ no warnings 'once';
return @{"$class\::CARP_NOT"}
? @{"$class\::CARP_NOT"}
: @{"$class\::ISA"};