Lines Matching refs:routine

367     my ($name, $category, $routine, $wrapper);
370       ($name, $category, $routine, $wrapper, $version_string) =
374         $routine = "Perl_warner" if $wrapper=~/WARN/;
375         $routine = "yyerror" if $wrapper=~/DIE/;
377       if ($routine=~/^deprecate/) {
384       # diag(Dumper(\%+,{category=>$category, routine=>$routine, name=>$name}));
406       ($name, $category, $routine) = ($+{'text'}, undef, $+{'routine'});
409       if ($routine =~ /dep/) {
422     my $severity = !$routine                   ? '[PFX]'
423                  :  $routine =~ /warn.*_d\z/   ? '[DS]'
424                  :  $routine =~ /ck_warn/      ?  'W'
425                  :  $routine =~ /warner/       ? '[WDS]'
426                  :  $routine =~ /warn/         ?  'S'
427                  :  $routine =~ /ckWARN.*dep/  ?  'D'
428                  :  $routine =~ /ckWARN\d*reg_d/? 'S'
429                  :  $routine =~ /ckWARN\d*reg/ ?  'W'
430                  :  $routine =~ /vWARN\d/      ? '[WDS]'
431                  :  $routine =~ /^deprecate/   ? '[DS]'