Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl 

use strict;
...

$comm=new Device::SerialPort('/dev/ttyS0') 
 or die "Error opening device\n";

Select or download this

sini@ordinalfabetix:~$ ./x.pl
        (in cleanup) Can't call method "setcflag" on an undefined valu
+e at /usr/lib/perl5/Device/SerialPort.pm line 482 during global destr
+uction.
sini@ordinalfabetix:~$