Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / IO / stty.pl

#!/usr/local/perl/bin/perl

require IO::Stty;

foreach $param (@ARGV) {
 push (@params,split(/\s/,$param));
}
$stty = IO::Stty::stty(\*STDIN,@params);
if ($stty ne '0 but true') {
 print $stty;
}