diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-26 17:53:31 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-26 17:53:31 +0000 |
| commit | f4d13ee9d0b78f23038694a8d4237f00da3ad10c (patch) | |
| tree | 108fd1ba1a50ecae4676be3f211323ef2dc63a40 /sv.c | |
| parent | ed8504609e65bf608915df5053decb2c1e5c56e9 (diff) | |
| download | perl-f4d13ee9d0b78f23038694a8d4237f00da3ad10c.tar.gz | |
Fix *foo{FORMAT}.
From: "H.Merijn Brand" <h.m.brand@hccnet.nl>
Subject: Re: Looking for a starting point (Mark-Jason?, Chip?, Jarkko?)
Date: Wed, 26 Jul 2000 19:51:02 +0200
Message-Id: <20000726194952.41DD.H.M.BRAND@hccnet.nl>
From: Graham Barr <gbarr@pobox.com>
Subject: Re: Looking for a starting point (Mark-Jason?, Chip?, Jarkko?)
Date: Wed, 26 Jul 2000 17:38:36 +0100
Message-ID: <20000726173836.L472@pobox.com>
p4raw-id: //depot/perl@6445
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -2831,6 +2831,13 @@ Perl_sv_setsv(pTHX_ SV *dstr, register SV *sstr) dref = (SV*)GvIOp(dstr); GvIOp(dstr) = (IO*)sref; break; + case SVt_PVFM: + if (intro) + SAVESPTR(GvFORM(dstr)); + else + dref = (SV*)GvFORM(dstr); + GvFORM(dstr) = (CV*)sref; + break; default: if (intro) SAVESPTR(GvSV(dstr)); |