# | Line 38 | Line 38 | sub verbose { | |
---|---|---|
38 | } | |
39 | } | |
40 | ||
41 | + | sub error { |
42 | + | my $self=shift; |
43 | + | my $string=shift; |
44 | + | |
45 | + | print $string."\n"; |
46 | + | exit 1; |
47 | + | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |