diff options
| author | Gurusamy Sarathy <gsar@engin.umich.edu> | 1997-01-14 13:15:25 -0500 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-16 07:24:00 +1200 |
| commit | 798567d10e91675966b273e3beae91140ef7f782 (patch) | |
| tree | 3ec400dca5664405596afe481f994b5d522fa57a /lib | |
| parent | 8cd9a32ec0687ae00b33c0256abed3ca9fe05226 (diff) | |
| download | perl-798567d10e91675966b273e3beae91140ef7f782.tar.gz | |
Re: Uninitialized value in Carp.pm ?
private-msgid: <199701141815.NAA07960@aatma.engin.umich.edu>
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Carp.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Carp.pm b/lib/Carp.pm index 1a1b79ea3f..de586489ba 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.]+$/; |