From df0a6e1843cd852c51050ba0ec52e2f1ca8fa0e1 Mon Sep 17 00:00:00 2001 From: Victor Seva Date: Mon, 14 Dec 2015 10:04:45 +0100 Subject: [PATCH] MT#16237 bin/scenario.pl: fix warning > Mon Dec 14 09:59:29 CET 2015 - Generating csv/reg.xml files > Possible precedence issue with control flow operator at ./bin/scenario.pl line 72. Change-Id: I73968a15ea81de15cbb38c48678fefce98c28da9 --- bin/scenario.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/bin/scenario.pl b/bin/scenario.pl index 56019903..aad3431f 100755 --- a/bin/scenario.pl +++ b/bin/scenario.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl # -# Copyright: 2013 Sipwise Development Team +# Copyright: 2013-2015 Sipwise Development Team # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -68,8 +68,9 @@ our $tt = Template->new({ sub new_csv { - return Text::CSV->new ( { quote_char => undef, sep_char => ';', eol => "\n" } ) - or die "Cannot use CSV: ".Text::CSV->error_diag(); + my $r = Text::CSV->new({quote_char => undef, sep_char => ';', eol => "\n"}) + or die("Cannot use CSV: ".Text::CSV->error_diag()); + return $r; } sub get_subs_info