Revision 8f3e8a02
Von Moritz Bunkus vor etwa 9 Jahren hinzugefügt
SL/DATEV.pm | ||
---|---|---|
263 | 263 |
my $fill_char = shift; |
264 | 264 |
my $alignment = shift || 'right'; |
265 | 265 |
|
266 |
my $text_len = length $text;
|
|
266 |
my $text_len = length($text // '');
|
|
267 | 267 |
|
268 | 268 |
if ($field_len < $text_len) { |
269 | 269 |
$text = substr $text, 0, $field_len; |
Auch abrufbar als: Unified diff
Benutzung undefinierter Werte vermeiden