From: Gurusamy Sarathy <gsar@engin.umich.edu>
Date: Tue, 14 Jan 1997 18:15:25 +0000 (-0500)
Subject: Re: Uninitialized value in Carp.pm ?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=798567d10e91675966b273e3beae91140ef7f782;p=p5sagit%2Fp5-mst-13.2.git

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