From b9f675c0e09a5727887f74b8c1dafc36dfce0796 Mon Sep 17 00:00:00 2001 From: Oliver Kiddle Date: Tue, 18 Dec 2001 14:51:30 +0000 Subject: 16364: further to 16351, except specials from having their value cleared --- Src/params.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Src') diff --git a/Src/params.c b/Src/params.c index 35f699033..1a04d7904 100644 --- a/Src/params.c +++ b/Src/params.c @@ -2286,7 +2286,10 @@ stdunsetfn(Param pm, int exp) case PM_SCALAR: pm->sets.cfn(pm, NULL); break; case PM_ARRAY: pm->sets.afn(pm, NULL); break; case PM_HASHED: pm->sets.hfn(pm, NULL); break; - default: pm->u.str = NULL; break; + default: + if (!(pm->flags & PM_SPECIAL)) + pm->u.str = NULL; + break; } pm->flags |= PM_UNSET; } -- cgit 1.4.1