diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-08-27 18:50:19 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-27 23:37:48 -0700 |
commit | d22667bf3cdadad95b9d176de3bf87d0b0e1286e (patch) | |
tree | 7e971a423f1299f314615839e1873199b4e6bb54 /gv.c | |
parent | 0da4a804fef07340c6c2f7617fcf7ed884cea7ae (diff) | |
download | perl-d22667bf3cdadad95b9d176de3bf87d0b0e1286e.tar.gz |
&CORE::srand()
This commit allows &CORE::srand to be called through references and
via ampersand syntax. pp_srand is modified to take into account the
nulls pushed on to the stack in pp_coreargs, which happens because
pp_coreargs has no other way to tell srand how many arguments it’s
actually getting. See commit 0163043a for details.
Diffstat (limited to 'gv.c')
-rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1360,7 +1360,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, case KEY_push: case KEY_setpgrp: case KEY_shift: case KEY_splice: - case KEY_srand: case KEY_stat: case KEY_substr: + case KEY_stat: case KEY_substr: case KEY_sysopen: case KEY_system: case KEY_tell: case KEY_tie: case KEY_tied: |