From be49132ae4715dce66b69f56f51a6cd0f8a0e5bd Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 10 Jun 2005 05:06:07 +0000
Subject: remove unused variables or make perl_checker happy with them

---
 drakpxelinux.pl | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

(limited to 'drakpxelinux.pl')

diff --git a/drakpxelinux.pl b/drakpxelinux.pl
index 61c4676..f55d966 100644
--- a/drakpxelinux.pl
+++ b/drakpxelinux.pl
@@ -165,7 +165,7 @@ sub create_model() {
 
 # wizard to add an entry in PXE menu
 sub wizard_add_entry {
-  my ($widget, $treeview) = @_;
+  my ($_widget, $treeview) = @_;
   my $model = $treeview->get_model;
 
   local $::isEmbedded = 0;
@@ -253,7 +253,7 @@ sub wizard_add_entry {
 
 # remove an entry in PXE menu
 sub remove_item {
-  my ($widget, $treeview) = @_;
+  my ($_widget, $treeview) = @_;
   $::isWizard = 0;
   my $model = $treeview->get_model;
   my $selection = $treeview->get_selection;
@@ -295,7 +295,7 @@ sub test_similar_label {
 
 # dialog box to edit a PXE entry
 sub edit_box_item {
-  my ($widget, $treeview) = @_;
+  my ($_widget, $treeview) = @_;
   $::isWizard = 0;
   my $model = $treeview->get_model;
   my $selection = $treeview->get_selection;
@@ -328,7 +328,6 @@ sub edit_box_item {
       $fd->signal_connect("destroy", sub { $fd->hide });
       $fd->ok_button->signal_connect(clicked => sub {
 				       my $file = $fd->get_filename;
-				       my $filesel = basename($file);
 				       if ($test eq "dir") {
 					 -d $file or err_dialog(N("Error!"), N("Should be a directory.")) and return;
 				       } else {
@@ -487,7 +486,6 @@ sub edit_box_item {
 	     0, create_okcancel({
 				 cancel_clicked => sub { $dialog->destroy },
 				 ok_clicked => sub {
-				   my $vgacode = $network::pxe::vga_resolution_to_bios{$vga->entry->get_text};
 				   #ask_okcancel("are you sure you want to update all those values ?");
 				   $entry->{label} = $label->get_text;
 				   $entry->{info} = $info->get_text;
@@ -496,8 +494,7 @@ sub edit_box_item {
 				   $entry->{automatic} = $automatic->entry->get_text;
 				   $entry->{interface} = $interface->entry->get_text;
 				   # check dhcp or ipaddress
-				   my $s = $toggledhcp->get_active;
-                                   if ($toggledhcp->get_active eq "1") {
+                                   if ($toggledhcp->get_active) {
 				     $entry->{network} = "dhcp";
 				   } else {
 				     $entry->{network} = $ipaddr->get_text;
-- 
cgit v1.2.1