summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table/gpt.pm4
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") {