Contents of /devel/perl/15_fix_local_symtab

Fix a segmentation fault occurring in the mod_perl2 test suite. (Closes: #475498)

Upstream change #33807 backported from blead.

[perl #52740]
diff --git a/sv.c b/sv.c
index 718e305..fe36438 100644
--- a/sv.c
+++ b/sv.c
@@ -3557,8 +3557,10 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
 		GvMULTI_on(dstr);
 		return;
 	    }
-	    glob_assign_glob(dstr, sstr, dtype);
-	    return;
+	    if (isGV_with_GP(sstr)) {
+		glob_assign_glob(dstr, sstr, dtype);
+		return;
+	    }
 	}
 
 	if (dtype >= SVt_PV) {
1	Fix a segmentation fault occurring in the mod_perl2 test suite. (Closes: #475498)
2
3	Upstream change #33807 backported from blead.
4
5	[perl #52740]
6	diff --git a/sv.c b/sv.c
7	index 718e305..fe36438 100644
8	--- a/sv.c
9	+++ b/sv.c
10	@@ -3557,8 +3557,10 @@ Perl_sv_setsv_flags(pTHX_ SV dstr, register SV sstr, I32 flags)
11	GvMULTI_on(dstr);
12	return;
13	}
14	- glob_assign_glob(dstr, sstr, dtype);
15	- return;
16	+ if (isGV_with_GP(sstr)) {
17	+ glob_assign_glob(dstr, sstr, dtype);
18	+ return;
19	+ }
20	}
21
22	if (dtype >= SVt_PV) {
admin@fedoraproject.org	ViewVC Help
Powered by ViewVC 1.1.2