diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-01-16 13:29:19 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-01-16 13:29:19 +0000 |
| commit | 2ff8d37f7c51c03e37638c37e030e060d2c34669 (patch) | |
| tree | c72f5c3597f86bd98cde9765692820dc4af7b89e /perl-install/standalone/net_monitor | |
| parent | e78fb4780e2059e155ec011dbefe71dd665cf7be (diff) | |
| download | drakx-backup-do-not-use-2ff8d37f7c51c03e37638c37e030e060d2c34669.tar drakx-backup-do-not-use-2ff8d37f7c51c03e37638c37e030e060d2c34669.tar.gz drakx-backup-do-not-use-2ff8d37f7c51c03e37638c37e030e060d2c34669.tar.bz2 drakx-backup-do-not-use-2ff8d37f7c51c03e37638c37e030e060d2c34669.tar.xz drakx-backup-do-not-use-2ff8d37f7c51c03e37638c37e030e060d2c34669.zip | |
replace occurences of "$foo ? $foo : $bar" with "$foo || $bar"
Diffstat (limited to 'perl-install/standalone/net_monitor')
| -rwxr-xr-x | perl-install/standalone/net_monitor | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor index beead5730..bd3a9ea9e 100755 --- a/perl-install/standalone/net_monitor +++ b/perl-install/standalone/net_monitor @@ -73,7 +73,7 @@ network::netconnect::load_conf($netcnx, $netc, $intf); network::netconnect::read_net_conf('', $netcnx, $netc); my $combo1 = new Gtk::Combo; $combo1->set_popdown_strings(network::netconnect::get_profiles()); -$combo1->entry->set_text($netcnx->{PROFILE} ? $netcnx->{PROFILE} : "default"); +$combo1->entry->set_text($netcnx->{PROFILE} || "default"); $combo1->entry->set_editable(0); MDK::Common::Globals::init( in => $in, @@ -358,8 +358,8 @@ sub update { }; my @intfs = get_val(); # get values from /proc file system - if ($combo1->entry->get_text ne ($netcnx->{PROFILE} ? $netcnx->{PROFILE} : "default")) { - $combo1->entry->set_text($netcnx->{PROFILE} ? $netcnx->{PROFILE} : "default"); + if ($combo1->entry->get_text ne ($netcnx->{PROFILE} || "default")) { + $combo1->entry->set_text($netcnx->{PROFILE} || "default"); } foreach (@intfs) { my $intf = $_; |