diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-08-05 00:15:52 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-08-05 13:18:50 -0700 |
| commit | f2da823f484d421a6bb57e32e442b19b553f4b35 (patch) | |
| tree | a1257b3e9d3f0b55dd912ce2b17f9fde7dff1492 /t/op/taint.t | |
| parent | 9a7154347977e29a815d93c0097c5a9b660006b2 (diff) | |
| download | perl-f2da823f484d421a6bb57e32e442b19b553f4b35.tar.gz | |
Make PL_(top|body|form)target PVIVs
These are only used for storing a string and an IV.
Making them into full-blown SVt_PVFMs is overkill.
FmLINES was only being used on these three scalars. So make it use
the SvIVX field. struct xpvfm no longer needs an xfm_lines member,
because SVt_PVFMs no longer use it.
This also causes a TODO test in taint.t to start passing, but I do
not fully understand why. But at least that’s progress. :-)
Diffstat (limited to 't/op/taint.t')
| -rw-r--r-- | t/op/taint.t | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index c8537fce40..0e89c1f87a 100644 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -2050,10 +2050,7 @@ end formline('@' .('<'*5) . ' | @*', 'hallo', 'welt'); isnt_tainted($^A, "accumulator still untainted"); formline('@' .('<'*(5+$TAINT0)) . ' | @*', 'hallo', 'welt'); - TODO: { - local $::TODO = "get magic handled too late?"; - is_tainted($^A, "the accumulator should be tainted already"); - } + is_tainted($^A, "the accumulator should be tainted already"); is_tainted($^A, "tainted formline picture makes a tainted accumulator"); } |