summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootsplash.pm4
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 {