X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMethod%2FGenerate%2FAccessor.pm;fp=lib%2FMethod%2FGenerate%2FAccessor.pm;h=bb34c3d3431bd006b95af0916f45b07c0aee56ae;hb=40b230ef10302d887c8f1a81a3658f7890bc3fa1;hp=d3f365bd4c9ddc2d8bb622dc54164f80b5f549d0;hpb=846f8ad9245c0255623cc14decd7127450a7a765;p=gitmo%2FMoo.git

diff --git a/lib/Method/Generate/Accessor.pm b/lib/Method/Generate/Accessor.pm
index d3f365b..bb34c3d 100644
--- a/lib/Method/Generate/Accessor.pm
+++ b/lib/Method/Generate/Accessor.pm
@@ -18,7 +18,7 @@ BEGIN {
   ;
 }
 
-sub SIGDIE
+sub _SIGDIE
 {
   our ($CurrentArgument, $CurrentAttribute, $CurrentStep, $OrigSigDie);
   $OrigSigDie ||= sub { die $_[0] };
@@ -392,7 +392,7 @@ sub _generate_die_prefix {
   .'  local $Method::Generate::Accessor::CurrentStep = '
     . B::perlstring($prefix) . ";\n"
   .'  local $Method::Generate::Accessor::OrigSigDie = $SIG{__DIE__};'."\n"
-  .'  local $SIG{__DIE__} = \&Method::Generate::Accessor::SIGDIE;'."\n"
+  .'  local $SIG{__DIE__} = \&Method::Generate::Accessor::_SIGDIE;'."\n"
   .$inside
   ."}\n"
 }