diff options
| author | John Peacock <jpeacock@rowman.com> | 2002-08-20 18:51:46 -0400 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-22 00:11:34 +0000 |
| commit | 439cb1c4bca8637a65af6ff559799d9f5b05b394 (patch) | |
| tree | 2cdf38962a0664061f5450a6876c0538ec71885a /util.c | |
| parent | b0f01acb49cf6b1fa37ea8df571f53079ea78fc9 (diff) | |
| download | perl-439cb1c4bca8637a65af6ff559799d9f5b05b394.tar.gz | |
Re: [PATCH] Version object patch #1
Date: Tue, 20 Aug 2002 22:51:46 -0400 (Wed 03:51 BST)
Message-id: <3D630042.6020407@rowman.com>
Subject: Re: [REVISED PATCH] Magic v-strings
From: John Peacock <jpeacock@rowman.com>
Date: Wed, 21 Aug 2002 15:08:34 -0400 (20:08 BST)
Message-id: <3D63E532.7020305@rowman.com>
p4raw-id: //depot/perl@17747
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -4072,6 +4072,7 @@ char * Perl_scan_vstring(pTHX_ char *s, SV *sv) { char *pos = s; + char *start = s; if (*pos == 'v') pos++; /* get past 'v' */ while (isDIGIT(*pos) || *pos == '_') pos++; @@ -4121,7 +4122,8 @@ Perl_scan_vstring(pTHX_ char *s, SV *sv) pos++; } SvPOK_on(sv); - SvREADONLY_on(sv); + sv_magicext(sv,NULL,PERL_MAGIC_vstring,NULL,(const char*)start, pos-start); + SvRMAGICAL_on(sv); } return s; } |