This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: b4a4155) | patch
sv_find() returning false, followed by sv_magic() to add the magic,
authorNicholas Clark <nick@ccl4.org>
Fri, 17 Mar 2006 13:38:34 +0000 (13:38 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 17 Mar 2006 13:38:34 +0000 (13:38 +0000)
commitd83f0a8247ea7458731c8479d8cbf3ee1fa81243
treec7b22a3a0257894aa9ec9c70af39e396f7212d7btree | snapshot
parentb4a415570dc258ddaff4bbab5c0f83c1af645b29commit | diff
sv_find() returning false, followed by sv_magic() to add the magic,
followed immediately by sv_find() to find it, is somewhat wasteful.
So use sv_magicext(). (All cases are also correct w.r.t. SvREADONLY())

p4raw-id: //depot/perl@27533
mg.c diff | blob | blame | history
pp_ctl.c diff | blob | blame | history
pp_hot.c diff | blob | blame | history
regexec.c diff | blob | blame | history
sv.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.