summaryrefslogtreecommitdiffstats
path: root/perl-install
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
commit1264b5acbee877ad2b33442beb0de9a94a87e819 (patch)
tree71e07f9bdc6b7f511aa22b1ad675acc604d6f265 /perl-install
parent26aa66b89834b12ccee50aa9aae91282c8a71cec (diff)
downloaddrakx-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.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") {