cleanup

diff --git a/dialog.pl b/dialog.pl
index 47bfe21..ee20fd1 100755 (executable)
--- a/dialog.pl
+++ b/dialog.pl
@@ -33,7 +33,7 @@ sub hex2bytes {
 }
 
 sub v {
-       my ($hex,$expect,$desc) = @_;
+       my ($hex,$desc) = @_;
        my $bytes = hex2bytes( $hex );
        warn "# $desc\n";
 retry:
@@ -47,7 +47,6 @@ retry:
 
        $data .= $port->read(ord($data) - 1);
        warn "<< ",as_hex($data);
-       warn "?? $expect\n" if $expect;
 
 }