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

diff --git a/Changes b/Changes
index 33d5d57..c541385 100644 (file)
--- 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 (file)
--- 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> };
   }
 }