SPUG: system() eating STDIN, how to avoid?

[Adam Monsen]

On 6/30/05, James Moore <james at banshee.com> wrote:
[...]
> Something in the system() call seems to be eating from standard input,
> though.
[...]

I'm unable to reproduce this.

I wrote the following script (called stdin_eat.pl):

use strict;
system('true') == 0 or die;
print <STDIN>;

I try the following:

$ echo -e "hello world\n" > test.txt
$ perl -w stdin_eat.pl < test.txt
hello world
$

Am I missing something?

-- 
Adam Monsen
http://adammonsen.com/