From ad55203582eef31b5624e6c2d948e8ef01cc0626 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 5 Mar 2003 14:15:33 +0000
Subject: prevent warning when using diagnostics pragma (easier debugging)

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

(limited to 'perl-install')

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index ac5f6e801..213a1e60c 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -262,7 +262,7 @@ sub detect() {
 
 	if (modules::get_probeall("usb-interface")) {
 	    if (my (@l) = detect_devices::usbMice()) {
-		log::l("found usb mouse $_->{driver} $_->{description} ($_->{type})") foreach @l;
+		log::l(join('', "found usb mouse $_->{driver} $_->{description} (", if_($_->{type}, $_->{type}), ")")) foreach @l;
 		eval { modules::load(qw(hid mousedev usbmouse)) };
 		if (!$@ && detect_devices::tryOpen("usbmouse")) {
 		    my $mouse = fullname2mouse($l[0]{driver} =~ /Mouse:(.*)/ ? $1 : "USB|Wheel");
-- 
cgit v1.2.1