[shell changes from patch from perl5.003_26 to perl5.003_27]

[p5sagit/p5-mst-13.2.git] / lib / Carp.pm

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.]+$/;