From: Karen Etheridge <ether@cpan.org>
Date: Wed, 29 May 2013 22:06:45 +0000 (-0700)
Subject: MSWin32 does not support -| $cmd @args: "List form of piped open not implemented"
X-Git-Tag: v0.009017~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9317190f2fa40b968b06040feffb22e5f1e4c94f;p=p5sagit%2FApp-FatPacker.git

MSWin32 does not support -| $cmd @args: "List form of piped open not implemented"
---

diff --git a/Changes b/Changes
index 33d5d57..c541385 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for App-FatPacker
 
+  - fix fatal "List form of piped open not implemented" on MSWin32 (RT#85712,
+    ether)
+
 0.009016 - 2013-04-07
   - 'file' command now takes care of keeping its original shebang line when given
     the original file as its argument. The 'pack' command makes use of that too.
diff --git a/lib/App/FatPacker.pm b/lib/App/FatPacker.pm
index 207141f..cade35a 100644
--- a/lib/App/FatPacker.pm
+++ b/lib/App/FatPacker.pm
@@ -127,7 +127,7 @@ sub trace {
     return;
   } else {
     # no output target specified, slurp
-    open my $out_fh, '-|', $^X, @args;
+    open my $out_fh, "$^X @args |";
     return do { local $/; <$out_fh> };
   }
 }