Sophie

Sophie

distrib > Mageia > 3 > i586 > media > core-release-src > by-pkgid > 00da6a3f1d759e5d4c3679a765a54b38 > files > 9

perl-Curses-UI-0.960.900-2.mga3.src.rpm

--- Curses-UI-0.9607/lib/Curses/UI.pm.orig	2008-12-21 22:38:18.000000000 +0100
+++ Curses-UI-0.9607/lib/Curses/UI.pm	2009-07-24 18:10:17.000000000 +0200
@@ -288,7 +288,7 @@
 	print STDERR "DEBUG: ncurses mouse events are enabled\n"
 	    if $Curses::UI::debug;
         # In case of gpm, mousemask fails. (MT: Not for me, maybe GPM changed?)
-	eval { $mmreturn = mousemask( ALL_MOUSE_EVENTS(), $old ) };
+	eval { $mmreturn = mousemask( ALL_MOUSE_EVENTS(), $old ) } if $Curses::UI::gpm_mouse;
 	if ($Curses::UI::debug) {
 	    print STDERR "DEBUG: mousemask returned $mmreturn\n";
 	    print STDERR "DEBUG: Old is now $old\n";