reanimation isn't an effect from eating the corpse, make it a separat…

…e method
sorear · Mar 19, 2009 · d04c93f · d04c93f
1 parent ecac853
commit d04c93f
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/lib/NetHack/Monster/Spoiler.pm b/lib/NetHack/Monster/Spoiler.pm
@@ -1038,9 +1038,6 @@ sub corpse {
             if $corpse_type->is_telepathic;
     }
 
-    # other
-    $corpse_data{reanimates} = 1 if $glyph eq 'T';
-
     return \%corpse_data;
 }
 
@@ -1067,6 +1064,11 @@ sub corpse_type {
     return $self;
 }
 
+sub corpse_reanimates {
+    my $self = shift;
+    return $self->glyph = 'T';
+}
+
 =head2 parse_description $name
 
 Attempt to decypher a monster description returned by NetHack. The return