Commit 3881e5d1 authored by jclamber's avatar jclamber

update perl scripts

git-svn-id: http://svn.oamp.fr/repos/unsio/trunk@229 ce2cc22f-6084-46ce-a062-084b172ee5dc
parent b2447d70
......@@ -162,12 +162,13 @@ sub Sqlite::getSimInfo {
}
printf "-------------\n";
}
#if ( defined(%$status ) ) {
if ( $status!="" ) {
if ( %$status ) {
return %$status;
} else {
return;
}
}
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Return Sim Eps
......
......@@ -102,9 +102,9 @@ sub Tools::printKeyValueHash
my $hash = shift; #% hash table given in parameter (pass by reference)
#foreach my $kk ( keys((%hash)) ) { #
foreach my $kk ( keys(($hash)) ) { #
printf STDERR "Key/Value = [$kk/$hash->{$kk}]\n";
}
#foreach my $kk ( keys(($hash)) ) { #
#printf STDERR "Key/Value = [$kk/$hash->{$kk}]\n";
# }
}
# - - - - - - - - - - - - - - - - - - - - - - - - - -
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment