diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-22 09:55:28 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-22 13:31:24 -0800 |
| commit | ca53de05d28f133db2c2c6da032928321c4bbf7c (patch) | |
| tree | ef9a22135d9f6d1214b584b804c902dcaa956913 /ext/arybase | |
| parent | 86d8ec8a5af09c4c9940c471298b7a48e6a46482 (diff) | |
| download | perl-ca53de05d28f133db2c2c6da032928321c4bbf7c.tar.gz | |
Eek! I left some debug code in arybase.xs
Diffstat (limited to 'ext/arybase')
| -rw-r--r-- | ext/arybase/arybase.xs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/ext/arybase/arybase.xs b/ext/arybase/arybase.xs index 936e29a426..cbc0741f0c 100644 --- a/ext/arybase/arybase.xs +++ b/ext/arybase/arybase.xs @@ -437,7 +437,6 @@ STORE(SV *sv, IV newbase) CODE: if (FEATURE_IS_ENABLED_d("$[")) { SV *base = cop_hints_fetch_pvs(PL_curcop, "$[", 0); - Perl_sv_dump(aTHX_ cop_hints_fetch_pvs(PL_curcop, "feature_no$[",0)); if (SvOK(base) ? SvIV(base) == newbase : !newbase) XSRETURN_EMPTY; Perl_croak(aTHX_ "That use of $[ is unsupported"); } |