diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/partition_table/gpt.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm index f84d38350..5607ed215 100644 --- a/perl-install/partition_table/gpt.pm +++ b/perl-install/partition_table/gpt.pm @@ -12,7 +12,7 @@ use c; #sub use_pt_type { 1 } sub read_one { - my ($hd, $sector) = @_; + my ($hd, $_sector) = @_; my $info; c::get_disk_type($hd->{file}) eq "gpt" or die "not a GPT disk"; @@ -34,7 +34,7 @@ sub read_one { } sub write { - my ($hd, $sector, $pt, $info) = @_; + my ($hd, $_sector, $_pt, $_info) = @_; # Initialize the disk if current partition table is not gpt if (c::get_disk_type($hd->{file}) ne "gpt") { |