From: André Walker <andre@andrewalker.net>
Date: Fri, 12 Aug 2011 03:07:32 +0000 (-0300)
Subject: madness.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=fce8d46e6dfd6e976bdfccc3c8dc8d22d569c344

madness.
---

diff --git a/lib/Catalyst/IOC/Service/WithAcceptContext.pm b/lib/Catalyst/IOC/Service/WithAcceptContext.pm
index 99b45e0..9e113b4 100644
--- a/lib/Catalyst/IOC/Service/WithAcceptContext.pm
+++ b/lib/Catalyst/IOC/Service/WithAcceptContext.pm
@@ -17,6 +17,9 @@ around get => sub {
     my $instance = $self->$orig(@_);
 
     if ( $accept_context_args && $instance->can($ac_sub) ) {
+        # FIXME - MADNESS!
+        # how the heck does this warn CODE???????????
+        warn ref $accept_context_args if ref $accept_context_args ne 'ARRAY';
         return $instance->$ac_sub( @$accept_context_args );
     }