summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-24 06:29:46 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-24 06:29:46 +0000
commit4b002564716195df76fb0de1fc264c4765d7866e (patch)
tree87776ca5db17e7e942ce840f305b0177d50b0e67 /lib
parentfb8944119a87cb70ee9fd0f530acaf0e2fcb8e9c (diff)
downloaddrakx-kbd-mouse-x11-4b002564716195df76fb0de1fc264c4765d7866e.tar
drakx-kbd-mouse-x11-4b002564716195df76fb0de1fc264c4765d7866e.tar.gz
drakx-kbd-mouse-x11-4b002564716195df76fb0de1fc264c4765d7866e.tar.bz2
drakx-kbd-mouse-x11-4b002564716195df76fb0de1fc264c4765d7866e.tar.xz
drakx-kbd-mouse-x11-4b002564716195df76fb0de1fc264c4765d7866e.zip
help perl_checker
Diffstat (limited to 'lib')
-rw-r--r--lib/Xconfig/screen.pm4
-rw-r--r--lib/mouse.pm2
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/Xconfig/screen.pm b/lib/Xconfig/screen.pm
index ad835fa..6855317 100644
--- a/lib/Xconfig/screen.pm
+++ b/lib/Xconfig/screen.pm
@@ -4,10 +4,10 @@ use diagnostics;
use strict;
use common;
-
+# perl_checker: require Xconfig::xfree
sub configure {
- my ($raw_X) = @_;
+ my ($raw_X) = @_; # perl_checker: $raw_X = Xconfig::xfree->new
my @devices = $raw_X->get_devices;
my @monitors = $raw_X->get_monitors;
diff --git a/lib/mouse.pm b/lib/mouse.pm
index 0ae34a0..a01924b 100644
--- a/lib/mouse.pm
+++ b/lib/mouse.pm
@@ -200,7 +200,7 @@ sub _input_entry_to_device_by_id {
foreach (split /^/, run_program::get_stdout('udevadm', 'info', '--query', 'env', '--path', $input->{sysfs_path})) {
if (/^ID_SERIAL=(.*)/) {
$ID_SERIAL = $1;
- $ID_SERIAL =~ s/[^\w#+\-.:=@_]/_/g; #- udev do a further cleanup, eg: "Wacom_Co.,Ltd._MTE-450" => "Wacom_Co._Ltd._MTE-450". cf ALLOWED_CHARS udev.h
+ $ID_SERIAL =~ s/[^\w#+\-.:=\@_]/_/g; #- udev do a further cleanup, eg: "Wacom_Co.,Ltd._MTE-450" => "Wacom_Co._Ltd._MTE-450". cf ALLOWED_CHARS udev.h
last;
}
}