Setting Parity for POSIX::Termios

[sharvey99]

I am trying to set an interface setting of
7 data 1 stop even parity (71E) using POSIX::termios.

I am having little success but feel it's just down to syntax.

$Term = setcflag->(PARENB | CSIZE | CS7);

everything else about the way I am setting the term looks good and works to a 81N setup which I guess is the default.

Can anyone tell me wether I am either doing it incorrectly or have not done enough to set 7 data 1 stop even parity.

Tanx in advance

Sharvey

 

[raider2001]

The syntax should be:

$Term->setcflag("PARENB | CSIZE | CS7"