diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-11-08 09:13:27 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-11-08 09:13:27 +0000 |
| commit | d2b4c688cb5f38457c0fdf47af09359204b0926e (patch) | |
| tree | dc573590b704cb50fa6924749cedadf0e6696752 /ext/B | |
| parent | 4b9177c9407ab3c950f2f7b002e32eb771033c72 (diff) | |
| download | perl-d2b4c688cb5f38457c0fdf47af09359204b0926e.tar.gz | |
In B.xs, refactor make_warnings_object() to take a COP * instead of STRLEN *.
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B.xs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 9e995ef330..cfc05178f8 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -291,8 +291,9 @@ make_temp_object(pTHX_ SV *temp) } static SV * -make_warnings_object(pTHX_ STRLEN *warnings) +make_warnings_object(pTHX_ const COP *const cop) { + const STRLEN *const warnings = cop->cop_warnings; const char *type = 0; dMY_CXT; IV iv = sizeof(specialsv_list)/sizeof(SV*); @@ -1276,7 +1277,7 @@ COP_warnings(o) B::COP o PPCODE: #if PERL_VERSION >= 9 - ST(0) = make_warnings_object(aTHX_ o->cop_warnings); + ST(0) = make_warnings_object(aTHX_ o); #else ST(0) = make_sv_object(aTHX_ NULL, o->cop_warnings); #endif |