From 89f064d0223d88e3bb00173e030ecde86b809b7a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 22 Dec 2001 23:00:59 +0000
Subject: make perl_checker happy

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

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

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index f61f3819b..66e433a03 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -463,9 +463,9 @@ sub get_text_coord {
 sub fill_tiled {
     my ($w, $pix, $bitmap, $x_back, $y_back, $width, $height) = @_;
     my ($x2, $y2) = (0, 0);
-    while(1) {
+    while (1) {
 	$x2 = 0;
-	while(1) {
+	while (1) {
 	    print "tiled($width, $height) x : $x2 - y : $y2\n";
 	    $pix->draw_pixmap($w->style->bg_gc('normal'),
 			      $bitmap, 0, 0, $x2, $y2, $x_back, $y_back);
-- 
cgit v1.2.1