X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=util.c;h=521a8c2419c9e0351f0bc5575a9548a42b1aa2a9;hb=64ace3f88f559d007c0150d9b048b1db32380208;hp=86c06f52836ae71f90286b25b31a7f8e5f222601;hpb=cbfd0a879b2bf2ade4a309e6d56c08ba19f320e1;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/util.c b/util.c
index 86c06f5..521a8c2 100644
--- a/util.c
+++ b/util.c
@@ -1454,7 +1454,7 @@ sidestepping the normal C order of execution. See C<warn>.
 If you want to throw an exception object, assign the object to
 C<$@> and then pass C<NULL> to croak():
 
-   errsv = get_sv("@", TRUE);
+   errsv = get_sv("@", GV_ADD);
    sv_setsv(errsv, exception_object);
    croak(NULL);