X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FWeb-Simple.git;a=blobdiff_plain;f=t%2Fdispatch_misc.t;h=842cf52883bf9b05aa1d824d8c98f819efb5aa11;hp=05bdd6716f3613d76ae685369a6f590555419427;hb=1f727762b7d2af3c22ae86a9c9012154a82b1457;hpb=90217864440f3ffadbbeaa12dbb76686dffadefd

diff --git a/t/dispatch_misc.t b/t/dispatch_misc.t
index 05bdd67..842cf52 100644
--- a/t/dispatch_misc.t
+++ b/t/dispatch_misc.t
@@ -64,7 +64,8 @@ sub app_is_object {
         sub to_app { [ 999, [], ["ok"] ] }
     }
 
-    my $d = Web::Dispatch->new( dispatch_object => ObjectApp->new );
+    my $o = ObjectApp->new;
+    my $d = Web::Dispatch->new( dispatch_object => $o );
     my $res = $d->call;
 
     cmp_ok $res->[0], '==', 999, "Web::Dispatch can dispatch properly, given only an object with to_app method";