मैं एक शून्य संदर्भ में चर के उपयोग के इस मामले को कैसे हल कर सकता हूं?

Question

मैं एक शून्य संदर्भ में चर के उपयोग के इस मामले को कैसे हल कर सकता हूं? (लाइन 17)

sub next { 
    my $page = shift; 

    my $next_stage = $page->{tree}->{nextstage}; 
    my $prev_stage = $page->{stage}; 

    print "Moving from: $prev_stage to $next_stage.\n" if ($DEBUG); 

    if ($next_stage eq "end") { 
     serialize_grabber_conf_answers($page, $config_file_tmp); 
     $grabber_initialized = 1; 
     return FALSE; 
    } 

    unless (defined ($page->{next_page})) { 
     serialize_grabber_conf_answers($page, $config_file_tmp); 
     my $next_page = ($page, $config_file_tmp, $next_stage); 
     $next_page->{stage} = $next_stage; 
     $page->{next_page} = $next_page; 
     $next_page->{prev_page} = $page; 
    } 

    return FALSE; 
    } 

धन्यवाद

Answer 1

समस्याग्रस्त लाइन

my $next_page = ($page, $config_file_tmp, $next_stage); 

आप एक अदिश को बताए रहे है, इसलिए केवल सूची के अंतिम सदस्य इस्तेमाल किया जाएगा। पिछले सदस्यों को फेंक दिया जाता है - एक चर के बेकार उपयोग।