From 4b42b64edd1473e52b9bf57168ef3cdabfd705bc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Jun 2005 06:15:30 +0000
Subject: minimal changes to make me and perl_checker happy

---
 perl-install/standalone/drakups | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index ca2d7f1bf..60d626f40 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -151,7 +151,7 @@ Please fill in its name, its driver and its port.", $model, $vendor);
                                  },
                                  post => sub {
                                      $port = '/dev/' . $port if $port !~ m!/dev/!;
-                                     return 'end',
+                                     return 'end';
                                  },
                                 },
                       end => {
@@ -196,9 +196,9 @@ sub load_access_conf() {
 # misc gui data
 
 sub edit_row {
-    my ($model, $iter) = @_;
+    my ($model, $o_iter) = @_;
     # create new item if needed (that is when adding a new one) at end of list
-    $iter ||= $model->append;
+    my $iter = $o_iter || $model->append;
     my $dialog = Gtk2::Dialog->new;
     $dialog->set_transient_for($w->{real_window});
     $dialog->set_modal(1);
-- 
cgit v1.2.1