From 5d5553a28eb9b061f697fc27387a092445ad3f41 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Sat, 17 May 2008 11:17:40 +0000 Subject: cosmetics --- lib/network/connection/cellular_card.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/network') diff --git a/lib/network/connection/cellular_card.pm b/lib/network/connection/cellular_card.pm index 6221bc1..96480b2 100644 --- a/lib/network/connection/cellular_card.pm +++ b/lib/network/connection/cellular_card.pm @@ -64,7 +64,7 @@ sub check_hardware_is_slow() { 1 } sub get_networks { my ($self) = @_; - my $cmd = "comgt -d " . $self->get_tty_device; + my $cmd = 'comgt -d ' . $self->get_tty_device; my ($network, $state) = `$cmd reg` =~ /^Registered on \w+ network: "(.*)",(\d+)$/m; my ($strength) = `$cmd sig` =~ /^Signal Quality:\s+(\d+),\d+$/; $self->{networks} = $network && { @@ -171,7 +171,7 @@ sub check_hardware { require c; use POSIX qw(:errno_h); - my $pid = IPC::Open2::open2(my $cmd_out, my $cmd_in, "comgt", "-d", $self->get_tty_device); + my $pid = IPC::Open2::open2(my $cmd_out, my $cmd_in, 'comgt', '-d', $self->get_tty_device); common::nonblock($cmd_out); my $selector = IO::Select->new($cmd_out); my $already_entered_pin; -- cgit v1.2.1