diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-17 11:34:32 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-17 11:34:32 +0000 |
| commit | 4781e491c32fdfe0dbe3cf97a8aca90040a9406b (patch) | |
| tree | ca4f166763cc8be7bc01e943dcbf5a058758060d /perl-install/Xconfig/main.pm | |
| parent | 5458ef92ec80fab427e4d69b5cdd22bb76b261d8 (diff) | |
| download | drakx-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar drakx-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.gz drakx-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.bz2 drakx-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.xz drakx-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.zip | |
new perl_checker compliance
Diffstat (limited to 'perl-install/Xconfig/main.pm')
| -rw-r--r-- | perl-install/Xconfig/main.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/Xconfig/main.pm b/perl-install/Xconfig/main.pm index 6aa5376a7..38b0c0e64 100644 --- a/perl-install/Xconfig/main.pm +++ b/perl-install/Xconfig/main.pm @@ -69,7 +69,7 @@ sub configure_everything { } sub configure_chooser_raw { - my ($in, $raw_X, $do_pkgs, $options, $X, $modified) = @_; + my ($in, $raw_X, $do_pkgs, $options, $X, $b_modified) = @_; my %texts; @@ -87,7 +87,7 @@ sub configure_chooser_raw { if ($val) { $X->{$field} = $val; $X->{"modified_$field"} = 1; - $modified = 1; + $b_modified = 1; $update_texts->(); if (member($field, 'card', 'monitor')) { @@ -122,7 +122,7 @@ sub configure_chooser_raw { $X->{various} = 'done'; } }, ]); - $ok, $modified; + $ok, $b_modified; } sub configure_chooser { @@ -135,7 +135,7 @@ sub configure_chooser { }; my ($ok, $modified) = configure_chooser_raw($in, $raw_X, $do_pkgs, $options, $X); - $modified and may_write($in, $raw_X, $X, $ok) or return; + $modified && may_write($in, $raw_X, $X, $ok) or return; 'config_changed'; } |