diff --git a/mc1322x-load.pl b/mc1322x-load.pl index f1b98838a..f545ad89d 100755 --- a/mc1322x-load.pl +++ b/mc1322x-load.pl @@ -115,7 +115,7 @@ if(scalar(@ARGV)!=0) { my $c; my $count; while(1) { ($count, $c) = $ob->read(1); - print $c if ($count != 0); + print $c if (defined($count) && ($count != 0)); } $ob -> close or die "Close failed: $!\n";