From b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 20 Mar 2012 19:52:33 +0000
Subject: perl_checker cleanups

---
 bin/draknetprofile | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'bin/draknetprofile')

diff --git a/bin/draknetprofile b/bin/draknetprofile
index 7a43689..e8ca2fd 100755
--- a/bin/draknetprofile
+++ b/bin/draknetprofile
@@ -104,15 +104,15 @@ sub load_netprofile_modules() {
 
 sub get_selected_profile() {
     my ($index) = $profiles_list->get_selected_indices;
-    if (not $index ) {
+    if (!$index) {
         my $pc = @{$profiles_list->{data}};
         my $index = 0;
         for (my $i = 0; $i < $pc; $i++) {
-            if ( $profiles_list->{data}[$i][0] == 1 ) {
+            if ($profiles_list->{data}[$i][0] == 1) {
                 $index = $i;
             }
         }
-    };
+    }
     defined $index && $profiles_list->{data}[$index][1];
 }
 
@@ -148,7 +148,7 @@ sub set_profile {
 }
 
 sub clone_profile() {
-    my $source_profile = get_selected_profile();
+    #my $source_profile = get_selected_profile();
     my $dialog = _create_dialog(N("New profile..."));
     my $entry_dialog = Gtk2::Entry->new;
     gtkpack($dialog->vbox,
@@ -181,7 +181,7 @@ sub delete_selected_profile() {
     my $profile = get_selected_profile();
     if ($profile eq $default_profile) {
         my $ret = warn_dialog(N("Warning"), N("Are you sure you want to delete the default profile?"));
-        return if not $ret;
+        return if !$ret;
     } elsif ($profile eq $net->{PROFILE}) {
         err_dialog(N("Error"), N("You can not delete the current profile. Please switch to a different profile first."));
         return;
-- 
cgit v1.2.1