修正代码逻辑错误。

使用_reponse_info返回是列表，不能直接使用。
qh997 · May 3, 2012 · bff0705 · bff0705
1 parent 54e53c1
commit bff0705
Showing 1 changed file with 13 additions and 10 deletions.
diff --git a/lib/Response.pm b/lib/Response.pm
@@ -142,10 +142,7 @@ use Class::Std::Utils; {
                     }
                     elsif ('G' eq uc $ucmd) {
                         $result{ident $self}{command} = $next;
-                        my $next_field = $result{ident $self}{command};
+                        $self -> _guide_reponse();
-                        $next_field =~ s/^G\+//;
-                        $result{ident $self}{content} .= get_word_replace('GUIDE_TITLE', 'TITLE' => $next_field);
-                        $result{ident $self}{content} .= $self -> _reponse_info($next);
                     }
                     else {
                         $result{ident $self}{content} = get_word_nowarp($next);
@@ -200,12 +197,7 @@ use Class::Std::Utils; {
 
                 $result{ident $self}{content} = get_word($word);
                 if (GetNext($result{ident $self}{command})) {
-                    my $next_field = $result{ident $self}{command};
+                    $self -> _guide_reponse();
-                    $next_field =~ s/^G\+//;
-                    $result{ident $self}{content} .= get_word_replace('GUIDE_TITLE', 'TITLE' => $next_field);
-                    my ($command, $content) = $self -> _reponse_info($result{ident $self}{command});
-                    $result{ident $self}{command} = $command;
-                    $result{ident $self}{content} .= $content;
                 }
                 else {
                     $result{ident $self}{content} .= get_word('GUIDE_FINISH');
@@ -284,6 +276,17 @@ use Class::Std::Utils; {
 
         return ($retsta, $retstr);
     }
+
+    sub _guide_reponse {
+        my $self = shift;
+
+        my $next_field = $result{ident $self}{command};
+        $next_field =~ s/^G\+//;
+        $result{ident $self}{content} .= get_word_replace('GUIDE_TITLE', 'TITLE' => $next_field);
+        my ($command, $content) = $self -> _reponse_info($result{ident $self}{command});
+        $result{ident $self}{command} = $command;
+        $result{ident $self}{content} .= $content;
+    }
 }
 
 return 1;