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/install_any.pm         | 1 +
 perl-install/partition_table_raw.pm | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 86da03058..db06b9d89 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -14,6 +14,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK);
 #- misc imports
 #-######################################################################################
 use common qw(:common :system);
+use commands;
 use run_program;
 use detect_devices;
 use pkgs;
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