From 01490c14dd09d414eeb344c4a6ce8c906cc35d89 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 19 Dec 2011 16:39:56 +0000
Subject: perl_checker hints

---
 perl-install/partition_table/gpt.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/partition_table')

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") {
-- 
cgit v1.2.1