ok, agree perl_checker is a good way to check perl code, but please

check our patch dont break the application.......

1 files changed, 6 insertions, 18 deletions

diff --git a/drakpxelinux.pl b/drakpxelinux.pl
index 932b942..da0f15d 100644
--- a/drakpxelinux.pl
+++ b/drakpxelinux.pl
@@ -269,7 +269,7 @@ label $a->{label}
 
 sub create_model {
   get_items();
-  my $model = Gtk2::ListStore->new(("Glib::String"));
+  my $model = Gtk2::ListStore->new(("Glib::String") x13);
   foreach my $a (@listpxe) {
     my $iter = $model->append;
     $model->set($iter,
@@ -1002,24 +1002,7 @@ $W->add(gtkpack_(Gtk2::VBox->new(0,0),
 		 if_(! $::isEmbedded, 0, $banner ),
 		 1, create_scrolled_window($treeview),
 		 0, gtkpack_(gtkset_border_width(Gtk2::HBox->new, 3),
-			     0, Gtk2::Label->new(N("boot:")),
-			     0, $labelscombo,
 			     0, Gtk2::VSeparator->new(),
-                             0, gtksignal_connect(set_help_tip(new Gtk2::Button(N("Wizard PXE server")), 'wizardsrv'),
-						  clicked => sub {
-						    eval { wizard_pxe_server() };
-						    my $err = $@;
-						    $::WizardWindow->destroy if defined $::WizardWindow;
-						    undef $::WizardWindow;
-						    if ($err && $err !~ /wizcancel/) {
-						      err_dialog(N("Error"), N("The PXE server wizard had unexpectly failled:")
-								 . "\n\n" . $err);
-						    }
-						  }),
-			     0, Gtk2::VSeparator->new,
-			     0, gtksignal_connect(new Gtk2::Button(N("Help")),
-                                                  clicked => sub { show_help }
-						 ),
 			     0, Gtk2::VSeparator->new,
                              0, gtksignal_connect(set_help_tip(Gtk2::Button->new(N("Add PXE entry")), 'addpxe'), clicked => sub {
 						    eval { wizard_add_entry($model, $treeview) };
@@ -1037,6 +1020,11 @@ $W->add(gtkpack_(Gtk2::VBox->new(0,0),
 			     0, gtksignal_connect(set_help_tip(Gtk2::Button->new(N("Edit PXE entry")), 'editb'), clicked => sub {
                                                     edit_box_item($model, $treeview); }
 						 ),
+			     0, Gtk2::Label->new(N("boot:")),
+			     0, $labelscombo,
+			     0, gtksignal_connect(new Gtk2::Button(N("Help")),
+                                                  clicked => sub { show_help }
+						 ),
 			    ),
 		 if_($::isEmbedded, 0, $okcancel),
 		),