Apple-2-SW/contiki
1
0
Fork 0
mirror of https://github.com/oliverschmidt/contiki.git synced 2024-12-26 04:32:02 +00:00
Code Issues Projects Releases Wiki Activity

added error messages for file not found.

Browse Source 
Signed-off-by: Mariano Alvira <mar@devl.org>
This commit is contained in:
Mariano Alvira 2009-08-10 16:52:36 -04:00
parent 5830ea153e
commit f4859e129d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mc1322x-load.pl
View File

@ -18,7 +18,7 @@ GetOptions ('file=s' => \$filename,
'terminal=s' => \$term,
'verbose' => \$verbose,
'baud=s' => \$baud,
);
) or die 'bad options';
$| = 1;
@ -34,11 +34,12 @@ if($filename eq '') {
exit;
}
if (!(-e $filename)) { die "file $filename not found\n"; }
if (($second ne '') && !(-e $second)) { die "secondary file $second not found\n"; }
my $ob = Device::SerialPort->new ($term) or die "Can't start $term\n";
# next test will die at runtime unless $ob
if ($filename eq '') { die "you must specify a file with -f\n"; }
$ob->baudrate($baud);
$ob->parity('none');
$ob->databits(8);