From 9bc8b5b56be1f30afe485f9b867b9b22a6e1ac61 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 22 Jan 2003 09:21:36 +0000 Subject: perl_checker fixes --- perl-install/standalone/drakxtv | 2 +- perl-install/standalone/mousedrake | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakxtv b/perl-install/standalone/drakxtv index 29f4e6065..ebcdf4ce7 100755 --- a/perl-install/standalone/drakxtv +++ b/perl-install/standalone/drakxtv @@ -101,7 +101,7 @@ You can install it by typing \"urpmi xawtv\" as root, in a console."))); if ($in->ask_from("TVdrake", N("Please,\ntype in your tv norm and country"), [ - { label => N("TV norm:"), val => \$norm, list => [ "NTSC", "NTSC-JP","PAL", "PAL-M", "PAL-N", "PAL-NC", "SECAM" ], type => 'combo' }, + { label => N("TV norm:"), val => \$norm, list => [ "NTSC", "NTSC-JP", "PAL", "PAL-M", "PAL-N", "PAL-NC", "SECAM" ], type => 'combo' }, { label => N("Area:"), val => \$ftable_id, list => [keys %freqtables], format => sub { $freqtables{$_[0]} }, sort => 1 }, ] )) diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake index 5b1ad7889..12789fef1 100755 --- a/perl-install/standalone/mousedrake +++ b/perl-install/standalone/mousedrake @@ -30,7 +30,7 @@ if (!$mouse || !$::auto) { #- and adding the nice test mouse to it Gtk2->timeout_add(100, sub { defined $::Plug && defined $::Plug->child or return 1; - mouse::test_mouse_standalone($mouse,$::Plug->child); + mouse::test_mouse_standalone($mouse, $::Plug->child); 0; }); } -- cgit v1.2.1