From 4781e491c32fdfe0dbe3cf97a8aca90040a9406b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 17 Apr 2003 11:34:32 +0000
Subject: new perl_checker compliance

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

(limited to 'perl-install/interactive/newt.pm')

diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index 3e8af3199..b94ae9193 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -392,9 +392,9 @@ sub wait_message_endW {
 }
 
 sub simplify_string {
-    my ($s, $width) = @_;
+    my ($s, $o_width) = @_;
     $s =~ s/\n/ /g;
-    $s = substr($s, 0, $width || 40); #- truncate if too long
+    $s = substr($s, 0, $o_width || 40); #- truncate if too long
     $s;
 }
 
-- 
cgit v1.2.1