summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-06-06 04:41:52 +0000
committerOlivier Blin <oblin@mandriva.org>2005-06-06 04:41:52 +0000
commit807ee814a606880268dc2cd6fd7b1837b5181d05 (patch)
treedda7a8f8f18c647fec13b24220d94ab963f2702c
parentd57092d82ad6401cc38e74e007f1e8dd86efd8f9 (diff)
downloaddrakx-807ee814a606880268dc2cd6fd7b1837b5181d05.tar
drakx-807ee814a606880268dc2cd6fd7b1837b5181d05.tar.gz
drakx-807ee814a606880268dc2cd6fd7b1837b5181d05.tar.bz2
drakx-807ee814a606880268dc2cd6fd7b1837b5181d05.tar.xz
drakx-807ee814a606880268dc2cd6fd7b1837b5181d05.zip
fix typo instead of trying to be perl_checker compliant ...
-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 {