--- toast 2003/09/02 18:03:09 1.192 +++ toast 2003/09/03 02:41:43 1.193 @@ -1608,6 +1608,12 @@ sub extract($$) { + if($0 eq "-") # e.g. "perl - arm foo < toast" + { + close(STDIN); # this step apparently matters; ignore spurious error + open(STDIN, "</dev/null") || error("open stdin: $!"); + } + my($indir, $outdir) = @_; my(@infiles) = absls($indir); @infiles || error("$indir is empty");