Fix a missing object arg stack shift.

perlDreamer · perlDreamer · commit 36035e3ea115 · 2012-02-09T16:05:01.000-08:00
diff --git a/wre/lib/WRE/WebguiDemo.pm b/wre/lib/WRE/WebguiDemo.pm
@@ -25,6 +25,7 @@ use Plack::Util::Accessor qw/wre_config/;
 
 #-------------------------------------------------------------------
 sub call {
+    my $self = shift;
     my $env = shift;
     my $config = WRE::Config->new;
     $self->wre_config($config);
