From 89f71019fc5eb77813216e64a508f075314d1fbb Mon Sep 17 00:00:00 2001
From: Tatsuhiko Miyagawa <miyagawa@bulknews.net>
Date: Tue, 7 May 2013 17:31:53 -0700
Subject: [PATCH] Die if Shotgun is running on Win32. Fix #400

---
 lib/Plack/Loader/Shotgun.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lib/Plack/Loader/Shotgun.pm b/lib/Plack/Loader/Shotgun.pm
index 05c1653b3..a4284dc09 100644
--- a/lib/Plack/Loader/Shotgun.pm
+++ b/lib/Plack/Loader/Shotgun.pm
@@ -5,6 +5,16 @@ use Storable;
 use Try::Tiny;
 use Plack::Middleware::BufferedStreaming;
 
+die <<DIE if $^O eq 'MSWin32' && !$ENV{PLACK_SHOTGUN_MEMORY_LEAK};
+
+Shotgun loader uses fork(2) system call to create a fresh Perl interpreter, that is known to not work
+properly in a fork-emulation layer on Windows and cause huge memory leaks.
+
+If you're aware of this and still want to run the loader, run it with the environment variable
+PLACK_SHOTGUN_MEMORY_LEAK on.
+
+DIE
+
 sub preload_app {
     my($self, $builder) = @_;
     $self->{builder} = sub { Plack::Middleware::BufferedStreaming->wrap($builder->()) };