diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-24 06:29:46 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-24 06:29:46 +0000 |
| commit | 4b002564716195df76fb0de1fc264c4765d7866e (patch) | |
| tree | 87776ca5db17e7e942ce840f305b0177d50b0e67 | |
| parent | fb8944119a87cb70ee9fd0f530acaf0e2fcb8e9c (diff) | |
| download | drakx-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
| -rw-r--r-- | lib/Xconfig/screen.pm | 4 | ||||
| -rw-r--r-- | lib/mouse.pm | 2 |
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; } } |