[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;
}
Commit	Line	Data
86530b38 AT	1	#!/usr/local/perl/bin/perl
	2
	3	require IO::Stty;
	4
	5	foreach $param (@ARGV) {
	6	push (@params,split(/\s/,$param));
	7	}
	8	$stty = IO::Stty::stty(\*STDIN,@params);
	9	if ($stty ne '0 but true') {
	10	print $stty;
	11	}