summaryrefslogtreecommitdiffstats
path: root/perl-install/resize_fat/io.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-14 23:09:15 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-14 23:09:15 +0000
commit773013b8e45a6916a74ea64152e51fb6cb951920 (patch)
tree1fe018ccc96d5ddf11081ea8d57f263b3be6ae00 /perl-install/resize_fat/io.pm
parent16caaa0fdfae2bdcec187bdffac3f12d7bb9a8a1 (diff)
downloaddrakx-backup-do-not-use-773013b8e45a6916a74ea64152e51fb6cb951920.tar
drakx-backup-do-not-use-773013b8e45a6916a74ea64152e51fb6cb951920.tar.gz
drakx-backup-do-not-use-773013b8e45a6916a74ea64152e51fb6cb951920.tar.bz2
drakx-backup-do-not-use-773013b8e45a6916a74ea64152e51fb6cb951920.tar.xz
drakx-backup-do-not-use-773013b8e45a6916a74ea64152e51fb6cb951920.zip
no_comment
Diffstat (limited to 'perl-install/resize_fat/io.pm')
-rw-r--r--perl-install/resize_fat/io.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/resize_fat/io.pm b/perl-install/resize_fat/io.pm
index 8cf21d929..cbe0033ca 100644
--- a/perl-install/resize_fat/io.pm
+++ b/perl-install/resize_fat/io.pm
@@ -10,7 +10,7 @@ use resize_fat::fat;
sub read($$$) {
my ($fs, $pos, $size) = @_;
- my $buf;
+ my $buf = "\0" x $size;
sysseek $fs->{fd}, $pos, 0 or die "seeking to byte #$pos failed on device $fs->{fs_name}";
sysread $fs->{fd}, $buf, $size or die "reading at byte #$pos failed on device $fs->{fs_name}";
$buf;