From 51039844febe1dc7c3f7ac5b3409f00e1679ab76 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 31 Jul 2002 15:18:09 +0000
Subject: replace "$foo" with $foo

---
 perl-install/my_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 04aabea56..a7d67f993 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -501,7 +501,7 @@ sub get_text_coord {
 	    $width = 0;
 	    $idx++;
 	}
-	$lines[$idx] = $flag ? "$_" : $lines[$idx] . $wrap_char . "$_";
+	$lines[$idx] = $flag ? $_ : $lines[$idx] . $wrap_char . $_;
 	$width += $l;
 	$flag = 0;
 	$l <= $max_width2 or $max_width2 = $l;
-- 
cgit v1.2.1