diff options
Diffstat (limited to 'perl-install/standalone/display_release_notes.pl')
| -rwxr-xr-x | perl-install/standalone/display_release_notes.pl | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/perl-install/standalone/display_release_notes.pl b/perl-install/standalone/display_release_notes.pl index 420209e42..21ac5bcdc 100755 --- a/perl-install/standalone/display_release_notes.pl +++ b/perl-install/standalone/display_release_notes.pl @@ -1,7 +1,6 @@ #!/usr/bin/perl # DrakBoot -# $Id: display_release_notes 242795 2008-05-29 15:38:07Z tv $ # Copyright (C) 2009 Mandriva # Thierry Vignaud # @@ -18,16 +17,23 @@ # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -# so that we popup above drakx: -BEGIN { $::isInstall = 1 } - use lib qw(/usr/lib/libDrakX); use interactive; use any; use MDK::Common; +use lang; my $in = 'interactive'->vnew('su'); +# so that we popup above drakx: +any::set_wm_hints_if_needed($in); + +# Fake enough $o for retrieving the proper translation: +$::o = $in; +$::o->{locale}{lang} = $ENV{LC_ALL}; +# must have a value so that we look at locale_special/ : +$::prefix = '/'; +lang::set($::o->{locale}); + # not very safe but we run in a restricted environment anyway: my $release_notes = cat_utf8('/tmp/release_notes.html'); any::display_release_notes($in, $release_notes); |