summaryrefslogtreecommitdiffstats
path: root/perl-install/resize_fat/io.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-13 11:41:53 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-13 11:41:53 +0000
commit3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2 (patch)
treefbc6900f93a37f93731d0be67b95fa5a83928564 /perl-install/resize_fat/io.pm
parent5521ae98ce86e69166df6f72126bf0c300c069f4 (diff)
downloaddrakx-3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2.tar
drakx-3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2.tar.gz
drakx-3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2.tar.bz2
drakx-3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2.tar.xz
drakx-3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2.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 48309db91..7255bc437 100644
--- a/perl-install/resize_fat/io.pm
+++ b/perl-install/resize_fat/io.pm
@@ -47,7 +47,7 @@ sub read_file($$) {
my ($fs, $cluster) = @_;
my $buf = '';
- for (; !resize_fat::fat::is_eof($cluster); $cluster = resize_fat::fat::next($fs, $cluster)) {
+ for (; !resize_fat::fat::is_eof($cluster); $cluster = resize_fat::fat::next ($fs, $cluster)) {
$cluster == 0 and die "Bad FAT: unterminated chain\n";
$buf .= read_cluster($fs, $cluster);
}