added return of hash $ret to CPE_info

diff --git a/lib/APKPM/CPE.pm b/lib/APKPM/CPE.pm
index 9b61a7e..4601f77 100644 (file)
--- a/lib/APKPM/CPE.pm
+++ b/lib/APKPM/CPE.pm
@@ -82,6 +82,8 @@ sub info : Job : Decode(d_array) : Encode(e_json) {
        my ( $self, $job, $workload ) = @_;
 
        my ( $ip, $username, $vendor ) = @$workload;
+       
+       my ( $ret );
 
        my $redis = Redis->new;
 
@@ -120,7 +122,7 @@ sub info : Job : Decode(d_array) : Encode(e_json) {
                $redis->sadd( "CPE.$vendor.queued" => $ip );
 
                my $module = 'H1::' . $vendor;
-               my $ret = eval { $module->info( $ip ) };
+               $ret = eval { $module->info( $ip ) };
 
                warn "# $module ",dump($ret);
 
@@ -138,7 +140,7 @@ sub info : Job : Decode(d_array) : Encode(e_json) {
                }
        }
 
-       return { ip => $ip, rtt => $rtt };
+       return { ip => $ip, rtt => $rtt, h => $ret };
 }
 
 1;