| … | … | ||
|---|---|---|---|
| 250 | delete $self->{ww}; | 250 | delete $self->{ww}; |
| 251 | delete $self->{fh}; | 251 | delete $self->{fh}; |
| 252 | 252 | ||
| 253 | $@ = $error; | 253 | $@ = $error; |
| 254 | 254 | ||
| 255 | if ($self->{on_error}) { | ||
| 255 | $self->{on_error}($self, $filename, $line, $fatal) | 256 | $self->{on_error}($self, $filename, $line, $fatal); |
| 256 | if $self->{on_error}; | 257 | return unless $fatal; |
| 258 | } | ||
| 257 | 259 | ||
| 258 | die "$error at $filename, line $line\n"; | 260 | die "$error at $filename, line $line\n"; |
| 259 | } | 261 | } |
| 260 | 262 | ||
| 261 | sub _req { | 263 | sub _req { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |