diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-06 19:24:03 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-06 19:24:03 +0000 |
| commit | 12e2b5c87a379eec81c5e2d80b67493689691082 (patch) | |
| tree | 102f4af9d8bcd168175a4f4dddda3e5862d82c70 /perl-install/standalone | |
| parent | 41ba541d10a02a787d5fe4974a9c389093c3b155 (diff) | |
| download | drakx-12e2b5c87a379eec81c5e2d80b67493689691082.tar drakx-12e2b5c87a379eec81c5e2d80b67493689691082.tar.gz drakx-12e2b5c87a379eec81c5e2d80b67493689691082.tar.bz2 drakx-12e2b5c87a379eec81c5e2d80b67493689691082.tar.xz drakx-12e2b5c87a379eec81c5e2d80b67493689691082.zip | |
make perl_checker happy
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/diskdrake | 1 | ||||
| -rwxr-xr-x | perl-install/standalone/service_harddrake | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake index 8f42d9664..2297a07de 100755 --- a/perl-install/standalone/diskdrake +++ b/perl-install/standalone/diskdrake @@ -68,6 +68,7 @@ if ($>) { my $in = 'interactive'->vnew('su'); if ($type eq 'fileshare') { + require any; any::fileshare_config($in); $in->exit(0); } diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake index 84097e9a9..29e811ec0 100755 --- a/perl-install/standalone/service_harddrake +++ b/perl-install/standalone/service_harddrake @@ -46,9 +46,9 @@ foreach (@harddrake::data::tree) { } my @added = difference2([ keys %ID ], [ keys %$oldconfig ]); $msg .= N("Some devices were added:\n", $item) if @added; - $msg .= "- ". harddrake::data::custom_id($ID{$_}, $item) ." was added\n" foreach (@added); + $msg .= "- ". harddrake::data::custom_id($ID{$_}, $item) ." was added\n" foreach @added; @added || @was_removed or next; - next unless (-x $configurator); + next unless -x $configurator; my ($pid, $no); $SIG{ALRM} = sub { $no = 1; kill 15, $pid }; unless ($pid = fork) { |