Localize $0 when evaluating .psgi so that FindBin etc. should DWIM

plack · Feb 23, 2011 · 3da9baf · 3da9baf
1 parent 0725390
commit 3da9baf
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 0 deletions.
diff --git a/lib/Plack/Util.pm b/lib/Plack/Util.pm
@@ -105,6 +105,8 @@ sub _load_sandbox {
     my $_package = $_file;
     $_package =~ s/([^A-Za-z0-9_])/sprintf("_%2x", unpack("C", $1))/eg;
 
+    local $0 = $_file; # so FindBin etc. works
+
     return eval sprintf <<'END_EVAL', $_package;
 package Plack::Sandbox::%s;
 {

diff --git a/t/Plack-Util/bin/findbin.psgi b/t/Plack-Util/bin/findbin.psgi
@@ -0,0 +1,2 @@
+use FindBin;
+sub { [ 200, [ "Content-Type", "text/plain" ], [ "$FindBin::Bin" ] ] };
diff --git a/t/Plack-Util/load.t b/t/Plack-Util/load.t
@@ -45,4 +45,11 @@ use Test::More;
     unlike $@, qr/Died/;
 }
 
+{
+    my $app = Plack::Util::load_psgi("t/Plack-Util/bin/findbin.psgi");
+    test_psgi $app, sub {
+        like $_[0]->(GET "/")->content, qr!t[/\\]Plack-Util[/\\]bin$!;
+    }
+}
+
 done_testing;