From d04c93fba2ea2326140db8d49fa91547fa37b345 Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Thu, 19 Mar 2009 03:45:22 -0500
Subject: [PATCH] reanimation isn't an effect from eating the corpse, make it a
 separate method

---
 lib/NetHack/Monster/Spoiler.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lib/NetHack/Monster/Spoiler.pm b/lib/NetHack/Monster/Spoiler.pm
index 16d6f50..2845448 100644
--- 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