summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2011-12-19 16:39:56 +0000
committerThierry Vignaud <tv@mageia.org>2011-12-19 16:39:56 +0000
commit01490c14dd09d414eeb344c4a6ce8c906cc35d89 (patch)
tree71e07f9bdc6b7f511aa22b1ad675acc604d6f265 /perl-install/partition_table
parent4aaa4d351c3acefbc9c08f899eb135758ef7ba41 (diff)
downloaddrakx-01490c14dd09d414eeb344c4a6ce8c906cc35d89.tar
drakx-01490c14dd09d414eeb344c4a6ce8c906cc35d89.tar.gz
drakx-01490c14dd09d414eeb344c4a6ce8c906cc35d89.tar.bz2
drakx-01490c14dd09d414eeb344c4a6ce8c906cc35d89.tar.xz
drakx-01490c14dd09d414eeb344c4a6ce8c906cc35d89.zip
perl_checker hints
Diffstat (limited to 'perl-install/partition_table')
-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") {