X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCarp.pm;h=de586489bad0305a6cbf448e71b824392b402287;hb=9d17b0a6244cecb9ba7d42c6a1a882fd933f6f45;hp=1a1b79ea3fba7c46810915ceab62e97e366de8cc;hpb=55497cffdd24c959994f9a8ddd56db8ce85e1c5b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Carp.pm b/lib/Carp.pm
index 1a1b79e..de58648 100644
--- 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.]+$/;