perl5.git.perl.org Git - perl5.git/commit

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

author	Father Chrysostomos <sprout@cpan.org>
	Fri, 9 Sep 2011 03:45:20 +0000 (20:45 -0700)
committer	Father Chrysostomos <sprout@cpan.org>
	Fri, 9 Sep 2011 04:36:40 +0000 (21:36 -0700)
commit	77cb3b015781b8e3c7ee73c313ba18cd16dfb442
tree	b5b8ecc07baf116844af218e14590a0c655af2f3	tree \| snapshot
parent	b1b24ee7afadda660049b2e5ed5e566d8d3babbc	commit \| diff

Enter gv_fetchsv_nomg

There are so many cases that use this incantation to get around
gv_fetchsv’s calling of get-magic--

    STRLEN len;
    const char *name = SvPV_nomg_const(sv,len);
    gv = gv_fetchpvn_flags(name, len, flags | SvUTF8(sv), type);

--that it’s about time we had a shorthand.

gv.c		diff \| blob \| blame \| history
gv.h		diff \| blob \| blame \| history
pp.c		diff \| blob \| blame \| history
pp_hot.c		diff \| blob \| blame \| history
sv.c		diff \| blob \| blame \| history

Unnamed repository; edit this file 'description' to name the repository.

RSS Atom