diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-16 16:27:06 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-16 16:27:06 +0000 |
| commit | 7871291e1db7370725c855a6d454a496f6e163ce (patch) | |
| tree | 1c7ea8a8ffffd2317cc87f74c9a2f76e384c322c /perl-install | |
| parent | ce6157ddfe14a6fa7c39561f7d6c0ca6f9f97fa8 (diff) | |
| download | drakx-backup-do-not-use-7871291e1db7370725c855a6d454a496f6e163ce.tar drakx-backup-do-not-use-7871291e1db7370725c855a6d454a496f6e163ce.tar.gz drakx-backup-do-not-use-7871291e1db7370725c855a6d454a496f6e163ce.tar.bz2 drakx-backup-do-not-use-7871291e1db7370725c855a6d454a496f6e163ce.tar.xz drakx-backup-do-not-use-7871291e1db7370725c855a6d454a496f6e163ce.zip | |
enhance readability
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/partition_table.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index 88bbcfd74..5402dc3d8 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -345,14 +345,14 @@ sub will_tell_kernel { will_tell_kernel($hd, add => $o_part); } else { my $part_number = sub { $o_part->{device} =~ /(\d+)$/ ? $1 : internal_error("bad device " . description($o_part)) }; - push @{$hd->{'will_tell_kernel' . ($o_delay || '')} ||= []}, - [ - $action, - $action eq 'force_reboot' ? () : - $action eq 'add' ? ($part_number->(), $o_part->{start}, $o_part->{size}) : - $action eq 'del' ? $part_number->() : - internal_error("unknown action $action") - ]; + + my @para = + $action eq 'force_reboot' ? () : + $action eq 'add' ? ($part_number->(), $o_part->{start}, $o_part->{size}) : + $action eq 'del' ? $part_number->() : + internal_error("unknown action $action"); + + push @{$hd->{'will_tell_kernel' . ($o_delay || '')} ||= []}, [ $action, @para ]; } if (!$o_delay) { foreach my $delay ('delay_del', 'delay_add') { |