diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2003-12-27 20:02:30 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-27 20:14:09 +0000 |
| commit | 5bbd4290dc068a04b65fb118bd01be1ae58c7454 (patch) | |
| tree | eb159cdb5d46accf8f886aa78deed99f370e1c5a /XSUB.h | |
| parent | fb8d82a27d7809423b06904bb01f8d6626a60074 (diff) | |
| download | perl-5bbd4290dc068a04b65fb118bd01be1ae58c7454.tar.gz | |
PATCH: *DB*_File
From: "Paul Marquess" <Paul.Marquess@btinternet.com>
Message-ID: <AIEAJICLCBDNAAOLLOKLIEAOPGAA.Paul.Marquess@btinternet.com>
p4raw-id: //depot/perl@21981
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -267,6 +267,8 @@ C<xsubpp>. See L<perlxs/"The VERSIONCHECK: Keyword">. SAVEINT(db->filtering) ; \ db->filtering = TRUE ; \ SAVESPTR(DEFSV) ; \ + if (name[7] == 's') \ + arg = newSVsv(arg); \ DEFSV = arg ; \ SvTEMP_off(arg) ; \ PUSHMARK(SP) ; \ @@ -276,6 +278,10 @@ C<xsubpp>. See L<perlxs/"The VERSIONCHECK: Keyword">. PUTBACK ; \ FREETMPS ; \ LEAVE ; \ + if (name[7] == 's'){ \ + arg = sv_2mortal(arg); \ + } \ + SvOKp(arg); \ } #if 1 /* for compatibility */ |