From 71412b3a34bbb1b5056ace130334917bfa6076be Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 15 Sep 1999 17:31:22 +0000
Subject: no_comment

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

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

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 61a0f2dff..9ff3a0c01 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -251,7 +251,7 @@ sub move {
     return if $part2->{notFormatted} && !$part2->{isFormatted} || $::testing;
 
     local (*F, *G);
-    sysopen F, $hd->{file}, 0 or die;
+    sysopen F, $hd->{file}, 0 or die '';
     sysopen G, $hd2->{file}, 2 or die _("Error opening %s for writing: %s", $hd2->{file}, "$!");
 
     my $base = $part->{start};
@@ -273,7 +273,7 @@ sub move {
 	c::lseek_sector(fileno(G), $base2, 0) or die "seeking to sector $base2 failed on drive $hd2->{device}";
     
 	my $buf;
-	sysread F, $buf, $SECTORSIZE * abs($_[0]) or die;
+	sysread F, $buf, $SECTORSIZE * abs($_[0]) or die '';
 	syswrite G, $buf;
     };
 
-- 
cgit v1.2.1