From f437e5f69a3fc892a6db36e0b9e9d876b1897a45 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 19 Sep 1999 14:55:21 +0000
Subject: no_comment

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

(limited to 'perl-install/partition_table_raw.pm')

diff --git a/perl-install/partition_table_raw.pm b/perl-install/partition_table_raw.pm
index bcb7ca588..8ccba3557 100644
--- a/perl-install/partition_table_raw.pm
+++ b/perl-install/partition_table_raw.pm
@@ -115,10 +115,10 @@ sub typeOfMBR($) {
     my $dev = devices::make($_[0]);
     local *F; sysopen F, $dev, 0 or return;
 
-    my $tmp
+    my $tmp;
     foreach (@MBR_signatures) {
 	my ($name, $offset, $signature) = @$_;
-	sysseek F, $offset, 0 or next;
+	sysseek(F, $offset, 0) or next;
 	sysread(F, $tmp, length $signature) && $tmp eq $signature and return $name;
     }
     undef;
-- 
cgit v1.2.1