diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-10-31 08:55:20 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-10-31 08:55:20 +0000 |
| commit | 159b6efe04c56d08ae56a63921b5ab3a69ac2ee9 (patch) | |
| tree | d48340b2de188981511861f9089de49d53b12874 /universal.c | |
| parent | 88e52f1cd82cd6da272e85a8b52d3a27cf1db31e (diff) | |
| download | perl-159b6efe04c56d08ae56a63921b5ab3a69ac2ee9.tar.gz | |
Add MUTABLE_GV(), and eliminate (V *) casts in *.c.
Can't easily do gv.h, as GvGP() (at least) needs to split into two
macros - one const for reading, one non-const for writing.
p4raw-id: //depot/perl@34679
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/universal.c b/universal.c index 6ba4439990..06dde0ccc2 100644 --- a/universal.c +++ b/universal.c @@ -949,11 +949,11 @@ XS(XS_PerlIO_get_layers) } sv = POPs; - gv = (GV*)sv; + gv = MUTABLE_GV(sv); if (!isGV(sv)) { if (SvROK(sv) && isGV(SvRV(sv))) - gv = (GV*)SvRV(sv); + gv = MUTABLE_GV(SvRV(sv)); else if (SvPOKp(sv)) gv = gv_fetchsv(sv, 0, SVt_PVIO); } |