X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/5538866cd35e1a09ec34db15bb962679f6f4be5d..12578451ab3883e1692ecd2814459f3e9f083028:/lib/overloading.pm diff --git a/lib/overloading.pm b/lib/overloading.pm index d1ca566..c762227 100644 --- a/lib/overloading.pm +++ b/lib/overloading.pm @@ -1,9 +1,7 @@ package overloading; use warnings; -use Carp (); - -our $VERSION = '0.01'; +our $VERSION = '0.02'; my $HINT_NO_AMAGIC = 0x01000000; # see perl.h @@ -14,7 +12,7 @@ sub _ops_to_nums { map { exists $overload::numbers::names{"($_"} ? $overload::numbers::names{"($_"} - : Carp::croak("'$_' is not a valid overload") + : do { require Carp; Carp::croak("'$_' is not a valid overload") } } @_; }