summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-03-05 14:15:33 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-03-05 14:15:33 +0000
commitad55203582eef31b5624e6c2d948e8ef01cc0626 (patch)
tree7536bd70333b1083c9380d7a3fc531f1c4f6e6fa /perl-install
parentfffd286fbb4e0401c7879ceef54896fad9921782 (diff)
downloaddrakx-ad55203582eef31b5624e6c2d948e8ef01cc0626.tar
drakx-ad55203582eef31b5624e6c2d948e8ef01cc0626.tar.gz
drakx-ad55203582eef31b5624e6c2d948e8ef01cc0626.tar.bz2
drakx-ad55203582eef31b5624e6c2d948e8ef01cc0626.tar.xz
drakx-ad55203582eef31b5624e6c2d948e8ef01cc0626.zip
prevent warning when using diagnostics pragma (easier debugging)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mouse.pm2
1 files changed, 1 insertions, 1 deletions
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");