diff options
Diffstat (limited to 'perl-install/partition_table/bsd.pm')
| -rw-r--r-- | perl-install/partition_table/bsd.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/partition_table/bsd.pm b/perl-install/partition_table/bsd.pm index 55e598e42..ec2a2edf4 100644 --- a/perl-install/partition_table/bsd.pm +++ b/perl-install/partition_table/bsd.pm @@ -1,4 +1,4 @@ -package partition_table::bsd; # $Id: bsd.pm 228416 2007-09-18 10:32:56Z pixel $ +package partition_table::bsd; use diagnostics; use strict; @@ -90,7 +90,7 @@ sub read_one { # write the partition table (and extended ones) # for each entry, it uses fields: start, size, pt_type, active sub write($$$;$) { - my ($hd, $sector, $pt, $info) = @_; + my ($hd, $_handle, $sector, $pt, $info) = @_; #- handle testing for writing partition table on file only! my $F; |