X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/cbfd0a879b2bf2ade4a309e6d56c08ba19f320e1..64ace3f88f559d007c0150d9b048b1db32380208:/symbian/symbian_utils.cpp

diff --git a/symbian/symbian_utils.cpp b/symbian/symbian_utils.cpp
index b3eee0b..e6483ef 100644
--- 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());