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 | |
| parent | d57092d82ad6401cc38e74e007f1e8dd86efd8f9 (diff) | |
| download | drakx-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 ...
Diffstat (limited to 'perl-install')
| -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 { |