| … | |
… | |
| 170 | next; |
170 | next; |
| 171 | } |
171 | } |
| 172 | my $r = Jeweler::Object->new (object => $_); |
172 | my $r = Jeweler::Object->new (object => $_); |
| 173 | my $msg = $r->analyze ($sk, $pl); |
173 | my $msg = $r->analyze ($sk, $pl); |
| 174 | $pl->message ($r->to_string . ": " . $msg); |
174 | $pl->message ($r->to_string . ": " . $msg); |
|
|
175 | if ($pl->get_flag (cf::FLAG_WIZ)) { |
| 175 | $r->wiz_analyze ($pl); |
176 | $r->wiz_analyze ($pl); |
|
|
177 | } |
| 176 | } |
178 | } |
| 177 | if ($hadunid) { |
179 | if ($hadunid) { |
| 178 | $pl->message ("You couldn't identify the other rings and not analyze them!"); |
180 | $pl->message ("You couldn't identify the other rings and not analyze them!"); |
| 179 | } |
181 | } |
| 180 | } |
182 | } |
