| Subject: | t\synopsis3.t needs to be rewritten (sh/bash ain't universal) |
open TEST, '-|', qq{perl -Ilib -MIO::All -e 'io("-")->print(io("-")->slurp)' < t/mystuff} or die "open failed: $!";
doesn't work on win32
oneliners generally don't belong in tests, but in eithercase
my $quote = $^O =~ /win32/i ? '"' : "'";
open TEST, '-|', qq{perl -Ilib -MIO::All -e $quoteio(q,-,)->print(io(q,-,)->slurp)$quote < t/mystuff} or die "open failed: $!";