"JüRgen BöMmels" wrote:
[snip]
> is(<FILE>, <<DATA, 'file content');
Shouldn't this be:
is(scalar <FILE>, <<DATA, 'file content');
(I don't recall whether is() provides scalar context to it's first
argument, but even if it does, it would be clearer to put the 'scalar'
in there anyway.)
[snip]
> char buf[1024];
[snip]
> len = PIO_read(interpreter, io, buf, sizeof(buf));
[snip]
> buf[len] = '\0';
This, almost certainly, should be:
buf[MIN(len, 1023)] = '\0';
After all, 'len' could concievably be 1024, if you decide to change your
earlier test to write a longer string to the temp file...
--
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "[EMAIL PROTECTED]
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}
