From fc9e9403c8bcd671a83fe4349581ccac76d3b294 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 4 Dec 2002 18:27:17 +0000 Subject: fix typo ($hd is not available in read_header(), so don't use it) --- perl-install/partition_table/gpt.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/partition_table/gpt.pm') diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm index 0f60fce07..7faad2be4 100644 --- a/perl-install/partition_table/gpt.pm +++ b/perl-install/partition_table/gpt.pm @@ -105,7 +105,7 @@ sub read_header { sysread $F, $tmp, psizeof($main_format) or die "error while reading partition table in sector $sector"; my %info; @info{@$main_fields} = unpack $main_format, $tmp; - $info{magic} eq $magic or die "bad magic number on disk $hd->{device}"; + $info{magic} eq $magic or die "bad magic number"; $info{myLBA} == $sector or die "myLBA is not the same"; $info{headerSize} == psizeof($main_format) or die "bad partition table header size"; $info{partitionEntrySize} == psizeof($partitionEntry_format) or die "bad partitionEntrySize"; -- cgit v1.2.1