diff options
| author | Thierry Vignaud <tv@mageia.org> | 2011-12-19 16:39:56 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2011-12-19 16:39:56 +0000 |
| commit | 01490c14dd09d414eeb344c4a6ce8c906cc35d89 (patch) | |
| tree | 71e07f9bdc6b7f511aa22b1ad675acc604d6f265 | |
| parent | 4aaa4d351c3acefbc9c08f899eb135758ef7ba41 (diff) | |
| download | drakx-01490c14dd09d414eeb344c4a6ce8c906cc35d89.tar drakx-01490c14dd09d414eeb344c4a6ce8c906cc35d89.tar.gz drakx-01490c14dd09d414eeb344c4a6ce8c906cc35d89.tar.bz2 drakx-01490c14dd09d414eeb344c4a6ce8c906cc35d89.tar.xz drakx-01490c14dd09d414eeb344c4a6ce8c906cc35d89.zip | |
perl_checker hints
| -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") { |