diff options
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) { |