From: Toby Inkster <mail@tobyinkster.co.uk>
Date: Sat, 15 Jun 2013 01:41:40 +0000 (+0100)
Subject: make sigdie handler private
X-Git-Tag: v1.003000~50
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=40b230ef10302d887c8f1a81a3658f7890bc3fa1;p=gitmo%2FMoo.git

make sigdie handler private
---

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"
 }