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 | 1264b5acbee877ad2b33442beb0de9a94a87e819 (patch) | |
| tree | 71e07f9bdc6b7f511aa22b1ad675acc604d6f265 /perl-install | |
| parent | 26aa66b89834b12ccee50aa9aae91282c8a71cec (diff) | |
| download | drakx-backup-do-not-use-1264b5acbee877ad2b33442beb0de9a94a87e819.tar drakx-backup-do-not-use-1264b5acbee877ad2b33442beb0de9a94a87e819.tar.gz drakx-backup-do-not-use-1264b5acbee877ad2b33442beb0de9a94a87e819.tar.bz2 drakx-backup-do-not-use-1264b5acbee877ad2b33442beb0de9a94a87e819.tar.xz drakx-backup-do-not-use-1264b5acbee877ad2b33442beb0de9a94a87e819.zip | |
perl_checker hints
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") { |