From 671d63a1eda74469592454b9105a1f1487763d39 Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mageia.org>
Date: Sun, 8 Apr 2012 13:45:12 +0000
Subject: Drop debug code

---
 perl-install/interactive/curses.pm | 2 --
 1 file changed, 2 deletions(-)

(limited to 'perl-install/interactive')

diff --git a/perl-install/interactive/curses.pm b/perl-install/interactive/curses.pm
index 482f14e45..7b81e9e09 100644
--- a/perl-install/interactive/curses.pm
+++ b/perl-install/interactive/curses.pm
@@ -418,11 +418,9 @@ sub create_widget {
 		       '-text' => '', 
 		       '-regexp' => '/^\d*$/',
 		       '-onchange' => sub {
-			   log::l("onchange: ".$w->text);
 			   $w->text($e->{min}) if $w->text < $e->{min};
 			   $w->text($e->{max}) if $w->text > $e->{max};
 			   ${$e->{val}} = $w->text;
-			   log::l("/onchange: ".$w->text);
 			   $changed->() if $changed;
 		       },
 		       %options);
-- 
cgit v1.2.1