=item *
-Assignment through a glob no longer triggers set-magic on the glob itself
-L<[perl #77928]|http://rt.perl.org/rt3/Public/Bug/Display.html?id=77928>.
-
-=item *
-
The regular expression parser no longer hangs when parsing C<\18> and
C<\88>.
SvSetSV_nosteal_and(dst,src,/*nothing*/;)
#define SvSetMagicSV(dst,src) \
- SvSetSV_and(dst,src, \
- if (SvSMAGICAL(dst) \
- && ( \
- !isGV_with_GP(dst) || !SvROK(src) || isGV_with_GP(SvRV(src)) \
- ) \
- ) \
- mg_set(dst) \
- )
+ SvSetSV_and(dst,src,SvSETMAGIC(dst))
#define SvSetMagicSV_nosteal(dst,src) \
- SvSetSV_nosteal_and(dst,src, \
- if (SvSMAGICAL(dst) \
- && ( \
- !isGV_with_GP(dst) || !SvROK(src) || isGV_with_GP(SvRV(src)) \
- ) \
- ) \
- mg_set(dst) \
- )
+ SvSetSV_nosteal_and(dst,src,SvSETMAGIC(dst))
#if !defined(SKIP_DEBUGGING)
use warnings;
-plan( tests => 220 );
+plan( tests => 219 );
# type coersion on assignment
$foo = 'foo';
}}->($h{k});
}
-# [perl #77928] Glob slot assignment and set-magic
-{
- package Readonly::Alias;
- sub TIESCALAR { bless \(my $x = \pop) }
- sub FETCH { $${$_[0]} }
- sub STORE { die "Assignment to read-only value" }
- package main;
- tie my $alias, "Readonly::Alias", my $var;
- $var = *bength;
- # Now modify a glob slot, not the alias itself:
- ok(scalar eval { *$alias = [] }, 'glob slot assignment skips set-magic');
-}
-
__END__
Perl
Rules