summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2009-01-26 14:44:46 +0000
committerOlivier Blin <oblin@mandriva.com>2009-01-26 14:44:46 +0000
commit0ad2a682873015dcb630b2409b8101ba79e31d04 (patch)
tree5e27e3e4aef0bfe9321a07a34b9f187674b2d3d3 /perl-install
parent63b81e173618b20a420003e7fa7a88bc4b2ee1e9 (diff)
downloaddrakx-0ad2a682873015dcb630b2409b8101ba79e31d04.tar
drakx-0ad2a682873015dcb630b2409b8101ba79e31d04.tar.gz
drakx-0ad2a682873015dcb630b2409b8101ba79e31d04.tar.bz2
drakx-0ad2a682873015dcb630b2409b8101ba79e31d04.tar.xz
drakx-0ad2a682873015dcb630b2409b8101ba79e31d04.zip
perl_checker style
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakdvb26
1 files changed, 13 insertions, 13 deletions
diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb
index f11d02934..1f4ded8fc 100755
--- a/perl-install/standalone/drakdvb
+++ b/perl-install/standalone/drakdvb
@@ -35,7 +35,7 @@ my $in = 'interactive'->vnew;
my $config_file = "$ENV{HOME}/.mplayer/channels.conf";
-my $channel_list = Gtk2::SimpleList->new(N("Channel")=> "text", "id" => "hidden");
+my $channel_list = Gtk2::SimpleList->new(N("Channel") => "text", "id" => "hidden");
my %buttons;
my $pid;
my $_w;
@@ -45,13 +45,13 @@ sub get_selected_channel() {
defined $index && $channel_list->{data}[$index][1];
}
-sub exitapp {
+sub exitapp() {
local $SIG{TERM} = 'IGNORE';
kill TERM => -$$;
Gtk2->main_quit;
}
-sub detect_channels {
+sub detect_channels() {
if (-e $config_file) {
$in->ask_okcancel(N("Warning"), N("%s already exists and its contents will be lost", $config_file)) or return;
}
@@ -65,11 +65,11 @@ sub detect_channels {
$SIG{CHLD} = 'IGNORE';
$_w->{window}->hide;
waitpid($pid, 0);
- if(($? >> 8) == 0){
+ if (($? >> 8) == 0) {
load_channels();
} else {
$in->ask_warn(N("Error"), N("Could not get the list of available channels"));
- };
+ }
gtkset_mousecursor_normal($w->{window}->window);
$buttons{detect}->set_sensitive(1);
$channel_list->set_sensitive(1);
@@ -92,23 +92,23 @@ sub detect_channels {
}
}
-sub load_channels {
+sub load_channels() {
@{$channel_list->{data}} = ();
- open(CHANNELCONF, "<$config_file");
- while(<CHANNELCONF>) {
- my($line) = $_;
+ open(my $CHANNELCONF, "<$config_file");
+ while (<$CHANNELCONF>) {
+ my $line = $_;
if ($line =~ /^([^:]*?)(\([^(:]*\))?:/) {
- push @{$channel_list->{data}}, [$1, $1.$2];
+ push @{$channel_list->{data}}, [ $1, $1 . $2 ];
}
}
- close(CHANNELCONF);
+ close($CHANNELCONF);
if (defined @{$channel_list->{data}}[0]) {
$channel_list->select(0);
}
}
-sub launch_tv {
- system('mplayer "dvb://'.get_selected_channel().'"&');
+sub launch_tv() {
+ system('mplayer "dvb://' . get_selected_channel() . '"&');
}
my $view_channel_button;