no strict by default with -e like perl

ray1729 · Jan 9, 2010 · 89d34d3 · 89d34d3
1 parent f3374ae
commit 89d34d3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 };