my $shell = $script;
if ($script =~ /\|/) {
# explicit shell wrapper to capture all warnings
- $script =~ s/'/'\\''/g;
+ $shell =~ s/'/'\\''/g;
$shell = "sh -c '$shell'";
}
$shell .= ' 2>' . ($wantwarn ? '&1' : '/dev/null');
--- /dev/null
+barcat -- input/seq3.txt
+1 -------------
+2 ------------------------+
+3 ------------------------+----->-------
--- /dev/null
+barcat input/seq3.txt input/seq3.txt
+1 -------------
+2 ------------------------+
+3 ------------------------+----->-------
+1 -------------
+2 ------------------------+
+3 ------------------------+----->-------
--- /dev/null
+cat input/seq3.txt | barcat
+1 -------------
+2 ------------------------+
+3 ------------------------+----->-------
--- /dev/null
+printf '' | barcat