diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-10-29 22:45:15 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-10-29 22:45:15 +0000 |
| commit | 502c6561fcd473b7da3277363169d75f16ac2f8b (patch) | |
| tree | 5b840aca24d5b44969c910e6c97f9edf7e221e48 /doop.c | |
| parent | 70d97eb0b44379e6179430e19c4bb4222d3544e9 (diff) | |
| download | perl-502c6561fcd473b7da3277363169d75f16ac2f8b.tar.gz | |
Eliminate (AV *) casts in *.c.
p4raw-id: //depot/perl@34650
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -998,7 +998,7 @@ Perl_do_chop(pTHX_ register SV *astr, register SV *sv) if (SvTYPE(sv) == SVt_PVAV) { register I32 i; - AV* const av = (AV*)sv; + AV *const av = MUTABLE_AV(sv); const I32 max = AvFILL(av); for (i = 0; i <= max; i++) { @@ -1084,7 +1084,7 @@ Perl_do_chomp(pTHX_ register SV *sv) count = 0; if (SvTYPE(sv) == SVt_PVAV) { register I32 i; - AV* const av = (AV*)sv; + AV *const av = MUTABLE_AV(sv); const I32 max = AvFILL(av); for (i = 0; i <= max; i++) { |