From 638beb1a35fde4a7f41f3aa39f1c146490006a87 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 21 Jan 2009 15:03:03 +0000 Subject: Update the documentation of get_sv() to note that it calls Perl_gv_fetchpv(), and hence the 'create' argument is actually 'flags'. Fix core code and documentation that used TRUE or FALSE to use 0 or GV_ADD. (cherry-picked from commit 64ace3f88f559d007c0150d9b048b1db32380208) --- util.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'util.c') diff --git a/util.c b/util.c index b09c9109ca..e43476f955 100644 --- a/util.c +++ b/util.c @@ -1464,7 +1464,7 @@ sidestepping the normal C order of execution. See C. If you want to throw an exception object, assign the object to C<$@> and then pass C to croak(): - errsv = get_sv("@", TRUE); + errsv = get_sv("@", GV_ADD); sv_setsv(errsv, exception_object); croak(NULL); -- cgit v1.2.1