From 89d34d3d5e1d2b119b8d7ccfdefc6443bd975528 Mon Sep 17 00:00:00 2001
From: Tatsuhiko Miyagawa <miyagawa@bulknews.net>
Date: Fri, 8 Jan 2010 22:49:02 -0800
Subject: [PATCH] no strict by default with -e like perl

---
 lib/Plack/Runner.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Plack/Runner.pm b/lib/Plack/Runner.pm
index 2aba68b04..ff62ea926 100644
--- a/lib/Plack/Runner.pm
+++ b/lib/Plack/Runner.pm
@@ -91,7 +91,7 @@ sub run {
     push @options, host => $host, port => $port;
 
     $psgi ||= $argv[0] || "app.psgi";
-    my $app = $eval               ? build { eval $eval or die $@ }
+    my $app = $eval               ? build { no strict; no warnings; eval $eval or die $@ }
             : ref $psgi eq 'CODE' ? sub   { $psgi }
             :                       build { Plack::Util::load_psgi $psgi };