summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-03 06:15:30 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-03 06:15:30 +0000
commit4b42b64edd1473e52b9bf57168ef3cdabfd705bc (patch)
tree4d6b2ead1add72eaf0c12669b8f0f4ba13a60bd7 /perl-install/standalone
parente80d8aea22eb4bf86af2679f4f984da7277eee53 (diff)
downloaddrakx-4b42b64edd1473e52b9bf57168ef3cdabfd705bc.tar
drakx-4b42b64edd1473e52b9bf57168ef3cdabfd705bc.tar.gz
drakx-4b42b64edd1473e52b9bf57168ef3cdabfd705bc.tar.bz2
drakx-4b42b64edd1473e52b9bf57168ef3cdabfd705bc.tar.xz
drakx-4b42b64edd1473e52b9bf57168ef3cdabfd705bc.zip
minimal changes to make me and perl_checker happy
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakups6
1 files changed, 3 insertions, 3 deletions
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);