From ed0734236e72b2c413b50d4ab02e7ba6ef91f82e Mon Sep 17 00:00:00 2001
From: Victor Seva <vseva@sipwise.com>
Date: Tue, 30 Jul 2013 16:46:56 +0200
Subject: [PATCH] bin/scenario.pl: fix res_id

---
 bin/scenario.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/scenario.pl b/bin/scenario.pl
index af5d06b8..80681be3 100755
--- a/bin/scenario.pl
+++ b/bin/scenario.pl
@@ -54,6 +54,7 @@ sub new_csv
 sub generate
 {
     my $id = 0;
+    my $res_id = 0;
     my ($data) = @_;
     my $csv = { callee => new_csv(), caller => new_csv(), scenario => new_csv() };
     my $io_caller = new IO::File(File::Spec->catfile($base_check_dir, "caller.csv"), "w")
@@ -69,7 +70,6 @@ sub generate
 
     foreach (@{$data})
     {
-        my $res_id = 0;
         my $user   = $_->{user};
         my $domain = $_->{domain};
         my $auth   = "[authentication username=$_->{username} password=$_->{password}]";