Good catch from Dave Mitchell; plus a null pointer protection.

p4raw-id: //depot/perl@22578

1 files changed, 2 insertions, 2 deletions

diff --git a/scope.c b/scope.c
index 86587e3e2c..cb56959ad9 100644
--- a/scope.c
+++ b/scope.c
@@ -217,8 +217,8 @@ S_save_scalar_at(pTHX_ SV **sptr)
 	/* if it's a special scalar or if it has no 'set' magic,
 	 * propagate the SvREADONLY flag. --rgs 20030922 */
 	for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) {
-	    if (SvMAGIC(sv)->mg_type == '\0'
-		    || !SvMAGIC(sv)->mg_virtual->svt_set)
+	    if (mg->mg_type == '\0'
+		    || !(mg->mg_virtual && mg->mg_virtual->svt_set))
 	    {
 		SvFLAGS(sv) |= SvREADONLY(osv);
 		break;