From 2ff8d37f7c51c03e37638c37e030e060d2c34669 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 16 Jan 2003 13:29:19 +0000
Subject: replace occurences of "$foo ? $foo : $bar" with "$foo || $bar"

---
 perl-install/network/tools.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/network/tools.pm')

diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 489e0d966..3d75a3073 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -36,7 +36,7 @@ sub write_secret_backend {
 sub unquotify {
     my ($word) = @_;
     my ($a, $b, $c) = $$word =~ /"(.*)"|'(.*)'|(.*)/;
-    $$word = $a ? $a : $b ? $b : $c;
+    $$word = $a || $b || $c;
 }
 
 sub read_secret_backend {
-- 
cgit v1.2.1