From 39b51c96e54f880be2d2fb909f44118a6c209d7c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 13 Jul 1999 16:23:45 +0000 Subject: *** empty log message *** --- perl-install/fs.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/fs.pm') diff --git a/perl-install/fs.pm b/perl-install/fs.pm index bf06934c2..18f6db4cb 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -68,7 +68,7 @@ sub format_ext2($;$) { run_program::run("mke2fs", devices::make($dev), @options) or die "ext2 formatting of $dev failed"; } -sub format_dos($;$) { +sub format_dos($;$@) { my ($dev, $bad_blocks, @options) = @_; run_program::run("mkdosfs", devices::make($dev), @options, $bad_blocks ? "-c" : ()) or die "dos formatting of $dev failed"; -- cgit v1.2.1