summaryrefslogtreecommitdiffstats
path: root/perl-install/fsedit.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-15 17:31:22 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-15 17:31:22 +0000
commit71412b3a34bbb1b5056ace130334917bfa6076be (patch)
tree5af9cdef0ea08f9bb81e1026fc1e27be7990bfb3 /perl-install/fsedit.pm
parentfec9449e69b0705b7ef85d9617d36e56f66628a4 (diff)
downloaddrakx-71412b3a34bbb1b5056ace130334917bfa6076be.tar
drakx-71412b3a34bbb1b5056ace130334917bfa6076be.tar.gz
drakx-71412b3a34bbb1b5056ace130334917bfa6076be.tar.bz2
drakx-71412b3a34bbb1b5056ace130334917bfa6076be.tar.xz
drakx-71412b3a34bbb1b5056ace130334917bfa6076be.zip
no_comment
Diffstat (limited to 'perl-install/fsedit.pm')
-rw-r--r--perl-install/fsedit.pm4
1 files changed, 2 insertions, 2 deletions
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;
};