Package: libtext-wrapi18n-perl
Version: 0.06-7.1
Severity: wishlist
File: /usr/share/man/man3/Text::WrapI18N.3pm.gz

SYNOPIS
        use Text::WrapI18N qw(wrap $columns);

$ perl -we 'use Text::WrapI18N qw(wrap "wow");'
""wow"" is not exported by the Text::WrapI18N module
Can't continue after import errors at -e line 1.
BEGIN failed--compilation aborted at -e line 1.
$ perl -we 'use Text::WrapI18N qw(wrap 111);'
Text::WrapI18N version 111 required--this is only version 0.06 at 
/usr/share/perl/5.26/Exporter/Heavy.pm line 111.
BEGIN failed--compilation aborted at -e line 1.

Also

     wrap(firstheader, nextheader, texts);

should be

     print wrap($firstheader, $nextheader, @texts);

Anyways, it would be best if the entire SYNOPIS, should work when piped
to perl.
man Text::WrapI18N|col -b|perl -nwle 'next unless /SYN/../^$/; next if /SYN/; 
print;'|perl -w

Reply via email to