| … | |
… | |
| 487 | } |
487 | } |
| 488 | |
488 | |
| 489 | $res |
489 | $res |
| 490 | } |
490 | } |
| 491 | |
491 | |
| 492 | if (0) { |
492 | if (1) { |
| 493 | my $perl = parse 'flag(SEE_IN_DARK) in inv', 0; |
493 | my $perl = parse '{ {1}}', 0; |
| 494 | |
494 | |
| 495 | warn $perl, "\n";#d# |
495 | warn $perl, "\n";#d# |
| 496 | $perl = eval "no warnings; no feature; sub { $perl }"; die if $@; |
496 | $perl = eval "no warnings; no feature; sub { $perl }"; die if $@; |
| 497 | use B::Deparse; |
497 | use B::Deparse; |
| 498 | warn B::Deparse->new->coderef2text ($perl); |
498 | warn B::Deparse->new->coderef2text ($perl); |
