diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2001-05-19 21:12:56 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-20 11:24:11 +0000 |
| commit | 14befaf4eaa6e79d87aacb106e0b701e925483ee (patch) | |
| tree | 9871bde0d14633096e8a6bdb25049096aa61b43f /perlio.c | |
| parent | 1102eebe5ec184d02a12b0ae21384e5605226f7d (diff) | |
| download | perl-14befaf4eaa6e79d87aacb106e0b701e925483ee.tar.gz | |
[LARGE!] symbolic magic
Message-Id: <200105191912.UAA23925@gizmo.fdgroup.co.uk>
p4raw-id: //depot/perl@10168
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -451,9 +451,9 @@ XS(XS_io_MODIFY_SCALAR_ATTRIBUTES) MAGIC *mg; int count = 0; int i; - sv_magic(sv, (SV *)av, '~', NULL, 0); + sv_magic(sv, (SV *)av, PERL_MAGIC_ext, NULL, 0); SvRMAGICAL_off(sv); - mg = mg_find(sv,'~'); + mg = mg_find(sv, PERL_MAGIC_ext); mg->mg_virtual = &perlio_vtab; mg_magical(sv); Perl_warn(aTHX_ "attrib %"SVf,sv); |