From 4c126c53ba97b51a89bbdca8f455bdeb7275909a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gwenol=C3=A9=20Beauchesne?= <gbeauchesne@mandriva.org>
Date: Fri, 30 Nov 2001 09:12:19 +0000
Subject: - cleanups from mainline

---
 perl-install/partition_table_gpt.pm | 1 +
 1 file changed, 1 insertion(+)

(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 4a0514d8e..6860dd591 100644
--- a/perl-install/partition_table_gpt.pm
+++ b/perl-install/partition_table_gpt.pm
@@ -64,6 +64,7 @@ $_ = join('', @$_) foreach $main_format, $partitionEntry_format, $guid_format;
 my $magic = "EFI PART";
 
 sub generate_guid {
+	my $tmp;
 	local *F;
 	open F, devices::make("random") or die "Could not open /dev/random for GUID generation";
 	read F, $tmp, psizeof($guid_format);
-- 
cgit v1.2.1