diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-13 14:36:52 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-13 14:36:52 +0000 |
| commit | 643921ac883be8af9dad01e441028d3564aea565 (patch) | |
| tree | 0e72b712472030c8522ef0606147e4e8968cc8a5 /perl-install/common.pm | |
| parent | e03f94cb575827ae939c90132604ee5af8545b7a (diff) | |
| download | drakx-643921ac883be8af9dad01e441028d3564aea565.tar drakx-643921ac883be8af9dad01e441028d3564aea565.tar.gz drakx-643921ac883be8af9dad01e441028d3564aea565.tar.bz2 drakx-643921ac883be8af9dad01e441028d3564aea565.tar.xz drakx-643921ac883be8af9dad01e441028d3564aea565.zip | |
no_comment
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index 77567726a..449efb922 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -116,6 +116,7 @@ sub translate { my ($s) = @_; unless (defined %po::I18N::I18N) { if (my ($lang) = substr($ENV{LC_ALL} || $ENV{LANGUAGE} || $ENV{LC_MESSAGES} || $ENV{LANG} || '', 0, 2)) { + local $@; local $SIG{__DIE__} = 'none'; eval { require "po/$lang.pm" }; } @@ -133,12 +134,13 @@ sub warp_text($;$) { my ($text, $width) = shift; $width ||= 80; - my ($t, @l); foreach (split /(\s+)/, $text) { - if (length "$t$_" > $width) { + my ($t, @l); foreach (split /\s+/, $text) { + if (length "$t $_" > $width) { push @l, $t; - $t = ''; + $t = $_; + } else { + $t = "$t $_"; } - $t .= $_; } @l, $t; } |