Re: Uninitialized value in Carp.pm ?

private-msgid: <199701141815.NAA07960@aatma.engin.umich.edu>

diff --git a/lib/Carp.pm b/lib/Carp.pm
index 1a1b79e..de58648 100644 (file)
--- a/lib/Carp.pm
+++ b/lib/Carp.pm
@@ -67,6 +67,7 @@ sub longmess {
                $a[$#a] = "...";
              }
              for (@a) {
+               $_ = "undef", next unless defined $_;
                s/'/\\'/g;
                substr($_,$MaxArgLen) = '...' if $MaxArgLen and $MaxArgLen < length;
                s/([^\0]*)/'$1'/ unless /^-?[\d.]+$/;