diff options
| author | Yves Orton <demerphq@gmail.com> | 2022-11-01 14:22:45 +0100 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2022-11-02 08:49:32 +0100 |
| commit | 39cf7760652873f4bf49a7e86c4762c40edf05c2 (patch) | |
| tree | 14697c951124474d5692a405cce7f843d9384373 /scope.c | |
| parent | a589f4b93cf3864d7f665d0974e2d36f028b00b6 (diff) | |
| download | perl-39cf7760652873f4bf49a7e86c4762c40edf05c2.tar.gz | |
scope.* - more flexible ways to save warning bits
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1639,8 +1639,8 @@ Perl_leave_scope(pTHX_ I32 base) break; case SAVEt_COMPILE_WARNINGS: - a0 = ap[0]; - free_and_set_cop_warnings(&PL_compiling, (STRLEN*) a0.any_ptr); + a0 = ap[0]; a1 = ap[1]; + free_and_set_cop_warnings((COP*)a0.any_ptr, (STRLEN*)a1.any_ptr); break; case SAVEt_PARSER: |