diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-04-08 20:25:52 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-04-19 20:09:11 -0700 |
commit | 6379d4a9afb32e86e55704579c9ac81237309672 (patch) | |
tree | 885d2dca15b39a4dc91bf9b5bbd3ac8609eea01d /scope.h | |
parent | 862504fb08ed24a37a327d325e83ceac76cf05cf (diff) | |
download | perl-6379d4a9afb32e86e55704579c9ac81237309672.tar.gz |
[perl #112316] Make strict vars respect assignment from null pkg
Under threads, strict vars was not respecting glob assignment from a
package with a null in its name if the name of the package assigned to
was equal to the prefix of the current package up to the null.
Diffstat (limited to 'scope.h')
-rw-r--r-- | scope.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -235,7 +235,8 @@ scope has the given name. Name must be a literal string. #define SAVEPARSER(p) save_pushptr((p), SAVEt_PARSER) #ifdef USE_ITHREADS -# define SAVECOPSTASH(c) SAVEPPTR(CopSTASHPV(c)) +# define SAVECOPSTASH(c) (SAVEPPTR(CopSTASHPV(c)), \ + SAVEI32(CopSTASH_len(c))) # define SAVECOPSTASH_FREE(c) SAVESHAREDPV(CopSTASHPV(c)) # define SAVECOPFILE(c) SAVEPPTR(CopFILE(c)) # define SAVECOPFILE_FREE(c) SAVESHAREDPV(CopFILE(c)) |