X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FEval%2FWithLexicals%2FWithHintPersistence.pm;h=de3f76b0602c470575298d3061d03cdfac1910d6;hb=235f639907b987b1071de49449145e6d312768ef;hp=92d5e77bb26e157e9589343a297eaa5411390d59;hpb=d9087132689f27e3409cf79308b90a67ee7a9ab2;p=p5sagit%2FEval-WithLexicals.git

diff --git a/lib/Eval/WithLexicals/WithHintPersistence.pm b/lib/Eval/WithLexicals/WithHintPersistence.pm
index 92d5e77..de3f76b 100644
--- a/lib/Eval/WithLexicals/WithHintPersistence.pm
+++ b/lib/Eval/WithLexicals/WithHintPersistence.pm
@@ -41,7 +41,8 @@ sub _capture_unroll_global {
   );
 }
 
-sub setup_code {
+around setup_code => sub {
+  shift; # we bypass orig, i.e. using role as normal inheritance.
   my($self) = @_;
   # Only run the prelude on the first eval, hints will be set after
   # that.