diff options
author | Olivier Blin <oblin@mandriva.org> | 2005-06-06 04:41:52 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.org> | 2005-06-06 04:41:52 +0000 |
commit | 807ee814a606880268dc2cd6fd7b1837b5181d05 (patch) | |
tree | dda7a8f8f18c647fec13b24220d94ab963f2702c /perl-install/bootsplash.pm | |
parent | d57092d82ad6401cc38e74e007f1e8dd86efd8f9 (diff) | |
download | drakx-backup-do-not-use-807ee814a606880268dc2cd6fd7b1837b5181d05.tar drakx-backup-do-not-use-807ee814a606880268dc2cd6fd7b1837b5181d05.tar.gz drakx-backup-do-not-use-807ee814a606880268dc2cd6fd7b1837b5181d05.tar.bz2 drakx-backup-do-not-use-807ee814a606880268dc2cd6fd7b1837b5181d05.tar.xz drakx-backup-do-not-use-807ee814a606880268dc2cd6fd7b1837b5181d05.zip |
fix typo instead of trying to be perl_checker compliant ...
Diffstat (limited to 'perl-install/bootsplash.pm')
-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 { |