diff options
| -rw-r--r-- | perl/Wallet/Object/Base.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl/Wallet/Object/Base.pm b/perl/Wallet/Object/Base.pm index 28ec6b9..556cb27 100644 --- a/perl/Wallet/Object/Base.pm +++ b/perl/Wallet/Object/Base.pm @@ -610,6 +610,7 @@ sub show { # trace field since they're not a field in the object in their own right. # The comment should be word-wrapped at 80 columns. for my $i (0 .. $#data) { + next unless defined $data[$i]; if ($attrs[$i][0] eq 'ob_comment' && length ($data[$i]) > 79 - 17) { local $Text::Wrap::columns = 80; local $Text::Wrap::unexpand = 0; |