summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-16 16:27:06 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-16 16:27:06 +0000
commit7871291e1db7370725c855a6d454a496f6e163ce (patch)
tree1c7ea8a8ffffd2317cc87f74c9a2f76e384c322c /perl-install
parentce6157ddfe14a6fa7c39561f7d6c0ca6f9f97fa8 (diff)
downloaddrakx-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.pm16
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') {