210 |
|
|
211 |
my $expected = $size + $len; |
my $expected = $size + $len; |
212 |
if ( $pos != $expected ) { |
if ( $pos != $expected ) { |
213 |
carp "BUG: file grows too big got $pos, expected $expected !"; |
cluck "BUG: file grows too big got $pos, expected $expected !"; |
214 |
truncate $fh, $expected; |
truncate $fh, $expected; |
215 |
} |
} |
216 |
|
|
366 |
|
|
367 |
=head1 SEE ALSO |
=head1 SEE ALSO |
368 |
|
|
369 |
Components: L<M6502>, L<Z80>, L<Screen>, L<Tape> |
Components: L<M6502>, L<Z80>, L<Screen>, L<Tape>, L<Session> |
370 |
|
|
371 |
Emulators: L<Orao>, L<Galaksija> |
Emulators: L<Orao>, L<Galaksija> |
372 |
|
|