Bug#794006: libtext-autoformat-perl: Use of uninitialized value in join or string

[Salvatore Bonaccorso]

Source: libtext-autoformat-perl
Version: 1.710000-1
Severity: normal

Hi

1.720000-1 introduced a bug demostrable via the following short
example:

----cut---------cut---------cut---------cut---------cut---------cut-----
#!/usr/bin/perl

use strict;
use warnings;

use Text::Autoformat;

my $rawtext = <<'RAW';
 - foo
bar
RAW

my $formatted = autoformat $rawtext;

print $formatted;
----cut---------cut---------cut---------cut---------cut---------cut-----

produces

----cut---------cut---------cut---------cut---------cut---------cut-----
Use of uninitialized value in join or string at /usr/share/perl5/Text/Autoformat/Hang.pm line 206.
Use of uninitialized value in join or string at /usr/share/perl5/Text/Autoformat/Hang.pm line 206.
Use of uninitialized value in join or string at /usr/share/perl5/Text/Autoformat/Hang.pm line 206.
Use of uninitialized value in join or string at /usr/share/perl5/Text/Autoformat/Hang.pm line 206.
Use of uninitialized value in join or string at /usr/share/perl5/Text/Autoformat/Hang.pm line 182.
Use of uninitialized value in join or string at /usr/share/perl5/Text/Autoformat/Hang.pm line 182.
Use of uninitialized value in join or string at /usr/share/perl5/Text/Autoformat/Hang.pm line 182.
Use of uninitialized value in join or string at /usr/share/perl5/Text/Autoformat/Hang.pm line 182.
 - foo bar
----cut---------cut---------cut---------cut---------cut---------cut-----

Regards,
Salvatore