From: David Leadbeater Date: Wed, 12 Jan 2011 21:35:52 +0000 (+0000) Subject: No need for around here now we compose X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7f5d0805be4447406bbf7a5325ceb29085d9c06f;p=p5sagit%2FEval-WithLexicals.git No need for around here now we compose --- diff --git a/lib/Eval/WithLexicals/WithHintPersistence.pm b/lib/Eval/WithLexicals/WithHintPersistence.pm index 75e0433..e95a008 100644 --- a/lib/Eval/WithLexicals/WithHintPersistence.pm +++ b/lib/Eval/WithLexicals/WithHintPersistence.pm @@ -46,8 +46,7 @@ sub _capture_unroll_global { ); } -around setup_code => sub { - shift; # we bypass orig, i.e. using role as normal inheritance. +sub setup_code { my($self) = @_; # Only run the prelude on the first eval, hints will be set after # that.