diff --git a/lib/Exd/DeviceToCatPrinter.pm b/lib/Exd/DeviceToCatPrinter.pm index 359688b..3b8a56c 100644 --- a/lib/Exd/DeviceToCatPrinter.pm +++ b/lib/Exd/DeviceToCatPrinter.pm @@ -82,7 +82,6 @@ sub print($self) { seek $fh, 0xa, 0; read $fh, my $offset, 4; $offset = unpack 'V', $offset; - say $offset; seek( $fh, $offset, 0 ); while ( 0 != read $fh, my $read, int( 384 / 8 ) ) { $read = diff --git a/lib/Exd/Gui.pm b/lib/Exd/Gui.pm index c01bcbf..90fd758 100644 --- a/lib/Exd/Gui.pm +++ b/lib/Exd/Gui.pm @@ -275,9 +275,8 @@ sub _on_run_script( $self, $instance_id, $exd_dir, $device, $verbose = 1 ) { my ( $stdout, $stderr, $exit ) = capture { eval { $exd->execute($printer); }; if ($@) { - die $@; if ($verbose) { - $self->_log( $@ . "\n" ); + $self->_log( $instance_id, $@ . "\n" ); } } };