From 807ee814a606880268dc2cd6fd7b1837b5181d05 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 6 Jun 2005 04:41:52 +0000
Subject: fix typo instead of trying to be perl_checker compliant ...

---
 perl-install/bootsplash.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/bootsplash.pm')

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 {
-- 
cgit v1.2.1