Searched refs:warn_or_die (Results 1 – 5 of 5) sorted by relevance
402 warn_or_die("ERROR: found following errors:\n" . join("\n", @errors) . "\n");886 warn_or_die("*** ERROR: Probably tab character is missing (line <$_[0]>)\n");893 warn_or_die("*** ERROR: Probably wrong formatted bbd line (line <$_[0]>)\n");1566 sub warn_or_die { subroutine
3940 my $warn_or_die = 0; # 0 - no warn, 1 - warn, 2 - die3955 $warn_or_die = 1 if $_[$i] eq 'lib';3956 $warn_or_die = 2 if $_[$i] eq 'only';3974 if $warn_or_die < 2; # but not for "only"4028 if ($warn_or_die > 0 && ref($l)) {4031 carp($msg) if $warn_or_die == 1;4032 croak($msg) if $warn_or_die == 2;4045 if ($warn_or_die == 2) {
4108 my $warn_or_die = 0; # 0 - no warn, 1 - warn, 2 - die4125 $warn_or_die = 1 if $_[$i] eq 'lib';4126 $warn_or_die = 2 if $_[$i] eq 'only';4144 if $warn_or_die < 2; # but not for "only"4162 if ($warn_or_die > 0 && ref($l)) {4165 carp($msg) if $warn_or_die == 1;4166 croak($msg) if $warn_or_die == 2;4172 if ($warn_or_die == 2) {
4231 my $warn_or_die = 0; # 0 - no warn, 1 - warn, 2 - die4258 $warn_or_die = 1 if $_[$i] eq 'lib';4259 $warn_or_die = 2 if $_[$i] eq 'only';4326 if ($warn_or_die == 2) {4347 if ($warn_or_die == 1) {