| … | … | ||
|---|---|---|---|
| 487 | } | 487 | } |
| 488 | 488 | ||
| 489 | $res | 489 | $res |
| 490 | } | 490 | } |
| 491 | 491 | ||
| 492 | if (1) { | 492 | if (0) { |
| 493 | my $perl = parse '{ {1}}', 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; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |