diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/Makefile | 2 | ||||
| -rw-r--r-- | perl-install/partition_table.pm | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/Makefile b/perl-install/Makefile index 6b3f998c6..9fe3affe3 100644 --- a/perl-install/Makefile +++ b/perl-install/Makefile @@ -78,7 +78,7 @@ install_pms: all for i in $(PMS); do \ dest=$(DESTREP4PMS)/`dirname $$i`; \ install -d $$dest; \ - perl -ne 'print unless (/^=head/ .. /^=cut/) || /#-.*/' $$i > $(DESTREP4PMS)/$$i; \ + perl -ne 's/\s*#-.*//; print unless (/^=head/ .. /^=cut/)' $$i > $(DESTREP4PMS)/$$i; \ done # || /use (diagnostics|vars|strict)/ diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index 65b084f21..94c17b815 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -358,7 +358,7 @@ sub add_extended($$) { my $e = $hd->{primary}{extended}; if ($e && !verifyInside($part, $e)) { - #ie "sorry, can't add outside the main extended partition" unless $::unsafe; + #-die "sorry, can't add outside the main extended partition" unless $::unsafe; my $end = $e->{start} + $e->{size}; my $start = min($e->{start}, $part->{start}); $end = max($end, $part->{start} + $part->{size}) - $start; @@ -377,12 +377,12 @@ The only solution is to move your primary partitions to have the hole next to th my $l = first (@{$hd->{extended}}); - # the first is a special case, must recompute its real size + #- the first is a special case, must recompute its real size $l->{start} = round_down($l->{normal}{start} - 1, cylinder_size($hd)); $l->{size} = $l->{normal}{start} + $l->{normal}{size} - $l->{start}; my $ext = { %$l }; unshift @{$hd->{extended}}, { type => 5, raw => [ $part, $ext, {}, {} ], normal => $part, extended => $ext }; - # size will be autocalculated :) + #- size will be autocalculated :) } else { my ($ext, $ext_size) = is_empty_array_ref($hd->{extended}) ? |