| 1 | #!./perl -w |
| 2 | # |
| 3 | # Check that utf8.pm and its dependencies only use the subset of the |
| 4 | # $1..$n capture vars that Perl_save_re_context() is hard-coded to |
| 5 | # localise, because that function has no efficient way of determining at |
| 6 | # runtime what vars to localise. |
| 7 | # |
| 8 | # Note that this script tests for the existence of symbol table entries in |
| 9 | # %::, so @4 etc would trigger a failure as well as $4. |
| 10 | # |
| 11 | # If tests start to fail, either (in order of descending preference): |
| 12 | # |
| 13 | # * fix utf8.pm or its dependencies so that any recent change no longer |
| 14 | # uses more special vars (ideally it would use no vars); |
| 15 | # |
| 16 | # * fix Perl_save_re_context() so that it localises more vars, then |
| 17 | # update this test script with the new relaxed var list. |
| 18 | |
| 19 | |
| 20 | use warnings; |
| 21 | use strict; |
| 22 | |
| 23 | # trigger the dependency loading |
| 24 | |
| 25 | my $x = lc "\x{411}"; |
| 26 | |
| 27 | # determine which relevant vars those dependencies accessed |
| 28 | |
| 29 | my @vars = |
| 30 | grep !/^[0123]$/, # $0, and $1, ..$3 allowed |
| 31 | grep /^(?:\d+|[`'&])$/, # numeric and $`, $&, $' vars |
| 32 | sort keys %::; |
| 33 | |
| 34 | # load any other modules *after* calculating @vars |
| 35 | |
| 36 | require './test.pl'; |
| 37 | |
| 38 | plan(1); |
| 39 | |
| 40 | is(scalar @vars, 0, "extraneous vars") |
| 41 | or diag("extra vars seen: " . join(", ", map "*$_", @vars)); |
| 42 | |
| 43 | exit 0; |