| … | … | ||
|---|---|---|---|
| 396 | exit 1; | 396 | exit 1; |
| 397 | } | 397 | } |
| 398 | 398 | ||
| 399 | $self->{fh} = $fh; | 399 | $self->{fh} = $fh; |
| 400 | 400 | ||
| 401 | my $trace = delete $self->{trace} || sub { }; | 401 | my $trace = $self->{trace} || sub { }; |
| 402 | 402 | ||
| 403 | $trace = sub { warn "$_[0] $_[1]\n" } if $trace && !ref $trace; | 403 | $trace = sub { warn "$_[0] $_[1]\n" } if $trace && !ref $trace; |
| 404 | 404 | ||
| 405 | my $buf; | 405 | my $buf; |
| 406 | 406 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |