diff options
| -rw-r--r-- | perl-install/bootsplash.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/bootsplash.pm b/perl-install/bootsplash.pm index ea4429c3b..a00a4e708 100644 --- a/perl-install/bootsplash.pm +++ b/perl-install/bootsplash.pm @@ -163,8 +163,8 @@ sub rectangle2xywh { } sub xywh2rectangle { - my ($x, $y, $w, $_h) = @_; - [ { X => $x, Y => $y }, { X => $x+$w, Y => $y+$w } ]; + my ($x, $y, $w, $h) = @_; + [ { X => $x, Y => $y }, { X => $x+$w, Y => $y+$h } ]; } sub distance { |