Don't mangle @_ if the first argument is not a ref (i.e a psgi app).

ray1729 · Jan 14, 2010 · c32c94f · c32c94f
1 parent 84ab708
commit c32c94f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Plack/Test.pm b/lib/Plack/Test.pm
@@ -11,7 +11,7 @@ sub test_psgi {
     eval "require Plack::Test::$Impl;";
     die $@ if $@;
     no strict 'refs';
-    if (@_ == 2) {
+    if (ref $_[0] && @_ == 2) {
         @_ = (app => $_[0], client => $_[1]);
     }
     &{"Plack::Test::$Impl\::test_psgi"}(@_);