Update the documentation of get_sv() to note that it calls Perl_gv_fetchpv(),

[perl5.git] / symbian / symbian_utils.cpp

diff --git a/symbian/symbian_utils.cpp b/symbian/symbian_utils.cpp
index b3eee0b..e6483ef 100644 (file)
--- a/symbian/symbian_utils.cpp
+++ b/symbian/symbian_utils.cpp
@@ -171,7 +171,7 @@ extern "C" {
        } else {
          buf8.Format(_L8("Symbian error %d"), error);
        }
-        SV* sv = Perl_get_sv(aTHX_ "\005", TRUE); /* $^E or ${^OS_ERROR} */
+        SV* sv = Perl_get_sv(aTHX_ "\005", GV_ADD); /* $^E or ${^OS_ERROR} */
         if (!sv)
             return (char*)NullErr;
         sv_setpv(sv, (const char *)buf8.PtrZ());