diff options
| author | David Mitchell <davem@iabyn.com> | 2010-06-18 22:45:45 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-07-03 16:25:58 +0100 |
| commit | 3340ac375f37f424a40787ccf00c582048903d8d (patch) | |
| tree | 8ec5fbb2e29995d384e940ed50283501b09d6ecc /lib/overload.t | |
| parent | 9bac1559a4f8ca714c2348d199ad2a13c4477b0b (diff) | |
| download | perl-3340ac375f37f424a40787ccf00c582048903d8d.tar.gz | |
taint-enable lib/overload.t
Stick a -T at the top of lib/overload.t in preparation for adding some
taint tests later. This causes some of the current tests to fail, since
the FETCH count has changed: so we fix those up too. They change because
under taint, code like ${$x} is compiled as enter/gvsv/leave/rv2sv rather
than gvsv/rv2sv (see Perl_scope), and the leave creates a mortal copy of
the tied value, avoiding any further fetches.
Diffstat (limited to 'lib/overload.t')
| -rw-r--r-- | lib/overload.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/overload.t b/lib/overload.t index ca58619bf2..949986bb93 100644 --- a/lib/overload.t +++ b/lib/overload.t @@ -1,4 +1,4 @@ -#!./perl +#!./perl -T BEGIN { chdir 't' if -d 't'; @@ -1737,7 +1737,7 @@ foreach my $op (qw(<=> == != < <= > >=)) { } $subs{'${}'} = '%s'; - push @terms, [ do {my $s=99; \$s}, '${%s}', '${}', '', 1, 2, 0 ]; + push @terms, [ do {my $s=99; \$s}, '${%s}', '${}', '', 1, 1, 0 ]; # we skip testing '@{}' here because too much of this test # framework involves array deredfences! @@ -1747,13 +1747,13 @@ foreach my $op (qw(<=> == != < <= > >=)) { '', 1, 2, 0 ]; $subs{'&{}'} = '%s'; - push @terms, [ sub {99}, 'do {&{%s} for 1,2}', '&{})(&{}', '', 2, 4, 0 ]; + push @terms, [ sub {99}, 'do {&{%s} for 1,2}', '&{})(&{}', '', 2, 2, 0 ]; our $RT57012A = 88; our $RT57012B; $subs{'*{}'} = '%s'; push @terms, [ \*RT57012A, '*RT57012B = *{%s}; our $RT57012B', - '*{}', '', 1, 2, 0 ]; + '*{}', '', 1, 1, 0 ]; # XXX TODO: '<>' |