"[Bug 804]" <[EMAIL PROTECTED]> writes:
> Not a HASH reference at /usr/sbin/drakfont line 1135.
>
> This was after a fresh cooker install. I hope this helps.
does this fix your bug ?
Index: standalone/drakfont
===================================================================
RCS file: /cooker/gi/perl-install/standalone/drakfont,v
retrieving revision 1.101
diff -u -w -p -r1.101 drakfont
--- standalone/drakfont 21 Jan 2003 12:29:06 -0000 1.101
+++ standalone/drakfont 22 Jan 2003 10:08:55 -0000
@@ -1138,18 +1138,18 @@ sub import_status {
{ col_spacings => 10, row_spacings => 50 },
[ "", "" ],
[
- N("Initial tests"), $pbar, $pbar->{label} = new Gtk2::Label(' ')
+ N("Initial tests"), $pbar, $pbar->set_text(' ')
],
[
N("Copy fonts on your system"), $pbar1,
- $pbar1->{label} = new Gtk2::Label(' ')
+ $pbar1->set_text(' ')
],
[
N("Install & convert Fonts"), $pbar2,
- $pbar2->{label} = new Gtk2::Label(' ')
+ $pbar2->set_text(' ')
],
[
- N("Post Install"), $pbar3, $pbar3->{label} = new Gtk2::Label(' ')
+ N("Post Install"), $pbar3, $pbar3->set_text(' ')
],
),
);
@@ -1171,15 +1171,15 @@ sub import_status_uninstall {
[ "", "" ],
[ "", "" ],
[
- N("Initial tests"), $pbar, $pbar->{label} = new Gtk2::Label(' ')
+ N("Initial tests"), $pbar, $pbar->set_text(' ')
],
[
N("Remove fonts on your system"), $pbar1,
- $pbar1->{label} = new Gtk2::Label(' ')
+ $pbar1->set_text(' ')
],
[
N("Post Uninstall"), $pbar2,
- $pbar2->{label} = new Gtk2::Label(' ')
+ $pbar2->set_text(' ')
],
),
);
