[perl #92446] fix recursion introduced in original patch

[perl #92446] fix recursion introduced in original patch

Some of the other interfaces format_arg() calls can cluck(), confess() or
longmess().  Avoid infinite recursion in those cases.

Also, instead of die() on format_arg recursion, fallback to basic
CLASS=HASH(...) output.

This fixes issues with CGI-Application, Devel-TrackSIG and Class-Std.

- for CGI-Application we ended up calling can(CARP_TRACE) on a CGI.pm
  object, which instead of returning false, croak()s

- Devel-TrackSIG calls Carp::longmess when we set the __DIE__ handler